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TITLE LDUS1,*REV 7* 

CARTR1 DGt DiSC TEST 
PART NO. 

CDUX1 6013l698-007 

CDOSl 60133734-007 

CDUL1 60133733-007 

DESCRIPTION 

^ This t~o y program verifies proper operation of thf level-6 top loading 

CARTRIDGE DISC SUBSYSTEM. PROVIDES A FIRST LcVEL OF DIAGNOSIS WHEN FAILURES 
ARE DETECTED, AND MAKES FACILITIES AVAILABLE fO SUPPORT EXTENSIVE PROBLEM IN¬ 
VESTIGATIONS. 


THE SGdSYSTlM OPTIONS SUPPORTED BY THIS PROGRAM ARFJ 


MSC9101 CARTRIDGE DISC CONTROL 


nvv,7J,ui Vj.r»rN i r\ i umju. y * jy. V.um roller 
CDM9101 CARTRIDGE DISC PAC (ADAPTER) 


CDU9101 1.23MW 
CDU9102 2.3 MW 
CDU9103 2.5 MW 
CDU9104 5.0 MW 
CDU9114 2.5 MW 
CDU9116 5.0 MW 


1.25MW 100-T PI 

2.3 MW 200-1 PI 


2.5 MW 100-TPI 
5.0 MW 200- I P 
2.5 MW 100-lPI 


CARTRIDGE DISC OnLY 
CARTRIDGE DISC OnLY 
CARTRIDGE ♦ FlXEu DISC 
CARTRIDGE ♦ F XEp DISc 
CARTRIDGE ♦ FlXEu DISC 
CARTRIDGE ♦ FIXEp DISC 


* 

REVISION 

HISTORY 


* 

001 

AUG 

1976 

* 

002 

OCT 

1976 

* 

003 

DtC 

1976 

* 

004 

FEB 

1977 

* 

005 

APR 

1977 

* 

006 

MAY 

1977 

* 

007 

oUL 

1977 


COOT 1 E ORI< 
CjUTI 

CDUSi L SAF 
CDUS1 

C0US1-CDUL1 
CoUSl-CDUL1 
CDUS1-CUUL1 


W/ MLCP library 


rr this document and the information contained therfin is confidential and 

PROPRIETARY TO AND THE EXCLUSIVE PRQPLRTY OF hQNEYwFLL INFORMATION SYSTEMS 
INC. IT IS MADE AVAILABLE ONLY TO HONEYWELL AUTHORISED RECIPIENTS FOR 
THEIR USE SOLELY IN THE MAlNTtNANCE AnD OPERATION OF HONEYWELL PRODUCTS. 
THIS DOCUMENT AND INFORMATION MUST BE MAINTAINED IN STRICTEST COnFIDlnCE; 
IT MUST NuT BE REPRODUCED IN WHOLE OR IN PARI; AND IT SHALL NOT BE DIS¬ 
CLOSED TO ANY OTHER PARTY WITHUUT THE PRIOR WRITTEN CONSENT OF HONEYWELL. 

************************** it *********ft*************************************** 
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/ PROGRAM PREPARATION; 

# ....... ........... 

THE ROOT,SOURCE OF THIS PROGRAM, AFTER THE ADDITION OF THE APPROPRIATE 
TITLE AND END STATEMENTS, WAS PROCESSED BY THE HOST RESIDENT ASSEMBLER 
TO CREATE EITHER SHORT OR LONG ADDRESS FORM ($AF OR LAP ) OBJECT TEXT 
AND LISTING, THE OBJECT TEXT WAS FURTHER PROCESSED BY THE HOST 

UATA * PLUS THf L0AD MAP FHok THE 

ROOT SAF 


NAME 

document 

distribution 


CD0X1 

60131896-007 


CDUSl 

60133734-007 


* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

# 

* 

# 

# 

* 

* 

* 

* 

* 

* 

* 

* routine demonstration 

* ..—... ....-...... 

* a minimum satisfactory _ 

* SELECTING "A" MODE OF OPERATION FOR 

* PROGRAM TO RUN AS MANY PASSES A‘ 

* TONE PASS ON EACH DEVICE.) 

* 

* STORAGE 

* ....... 

* THIS PROGRAM REQUIRES AT LEAST I6K 

* ALE AVAILABLE MEMORY UP THROUGH 32K 

* ECuTED IN A 16K SYSTEM, 

* 

* OPERATION 

EOaITand START.(OR RESTART) 


J 


LAF 

mi 


735-007 


CENTER 
‘ AND 


THE ELEMENTARY ITEMS SUBMITTED TO THE T 6 V PROGRAM DISTRIBUTION 
WERE THE EXLCUTABLE LINKED IMAGES, ON DISKETTE, OF CDUSl AND CDUL1 
MAGNETIC TAPE IMAGES OF THE AUGMENTED LISTINGS. 

REPRODUCTIONS OF THE EXECUTABLE LINKED IMAGES May BE AS DUPLICATE CARD 
DECKS OK AS A MEMBER OF A MULTIPLE MEMBER FILE. IN THE MOST FREuUENT 
CASE, IT WILL BE FOUND AS MEMBER "SN" (SaF) Or *»lN m (LAF) WITHIN FILE 
"PkuGFIlE” OF a DISKETTE Volume ENTITLED w uIAGS«. 

DISTRIBUTION OF THE LISTINGS, WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 
MAINTENANCE OR REPAIR IS TO BE PERFORMED, i$ NORMALLY AS A PRINTED COPY. 


TEST FOR NORMAL, OPERATION MAY BE OBTAINED BY 

Ii0 ftc F 9Ej£ c k^yiSS prfsent and permit the 

AS THERE ARE DEVICES. 


jsm 




WILL USfc 
NOT BE EX- 


BE DISPLAYS ON THE CONSOLE.' '7 A&?°S?Ct! * 

THE *VSLId REVISION NUMBER 
THE ADDRESS FORM (SAF OR LAP) 

I/O EQUIPMENT DETECTED IN THE SYSTEM 
MEMORY SUE 


ILL 


this display must be verified by the operator. 

ON RESTARTS, 


the console SEARCH RULES ARE. 
NUMBER CGNNtCTED THRU AN MDC 


FIND, THE 

controlle 


THIS DISPLAY IS OMITTED 

WITH THE LOWEST CHANNEL 
THERE IS NO CONSOLE ON AN 


*>WH| 'wwvfcnt inerts. * V VVMjutL VII nn \ 

IB e h *£ H £S T CHANNEL NUMBER ASSIGNED \_S 


HOC, THtN StARCH FOR A TLRMJNAL WITH THE .. __ _ 

I8 E fi N 6 8 c Y8 ?8r®L 0 2ASl c P ^^ 0UER * {f no ASYNt ADAPTfc,r IS 

CATION A «|vsTTY" CONSOut CHANNEL OPTIONS DtIERMlNFD BY THE VALUE OF LO- 


if zvsTTY equals <oqoq), search for a co 
If * VST T Y EuOALS (FFFF), assume THERE is .. 

IF ZV^TTY_EQUALS NEITHER (0000), NOR <FFFF), THFN IT IS THE CONSOLE CHAN- 
NOTE ; DEFAULT IS TO SEARCH FOR A CONSOLE* 


CONSOLE* 

IS No CONSOLE* 


NEL NUMBER. 

ALL CONSOLE I/O IS EVEN PARITY. IP CONSOEt .. .. _ __ 

AND TH t BAUD RATE SET AT 1*00 TO MATCH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATE, THFN THE NEW UUU RATE 

CODE SHOULD BE PUT INTO LOCATION »*V*BUD» IN HE . “*-* 

MUST BE SET TO MATCH THIS NEW BAqD RATE. ~‘ 

OBTAINED FROM THE FOLLOWING TABLE. 


«L, IS ON MLC* IT MOST BE ASYNC 
PROGRAM SUPPLIED RATE. IF IT 
:» THEN THE, NEW BAUD RATE 
SI HEX. THE^TERMINAL BAUD RATE 
THE CORRECT HEX VALUE MAY BE 


BAUD RAIL TABLE 


UfcbUi?§ tuU8JUU01 tul0b ' 

* 

* 

* 

* 

* 

* 

* 

# 

# 


50 
•7 5 

no 

134 

150 

200 

300 

600 

900 

1050 

1200 

1800 

2000 

2400 

3600 

4600 

7*00 

9600 

19200 


Et 

EE 

Ec 

lb 

1 


— EE 
6 El 
9 El 

10 (A) 
U ( o) 
I* <C) 

--- ee 

13 (D) 

— tE 

m 


3 

4 

5 

6 
7 

8 

™ 

EE 

EE 

E 

EE 2 

d* 

EE 


10 (A) 

II" (B) 

IV (D) 
if(F, 


TO MAKE hNY OF THE ABOVE CHANGES, 
lCution. insert change then execute. 


LOAD AND HALT THE PROGRAM BEFORE EX- 
memory locations of «zv$tty« and 


"ZVSBUD" MAY BE FOUND IN MAP AT END OF LISTING. 

CONSULT LEVEL-6 T6V MANUAL ”AW94» FOR DETAILS On HOW TO LOAD THE TlSTS. 


THE FOLLOWING 
PROGRAM. 


IS A TYPICAL RESULT OF LOADING AND STARTING TO RUN THE 


CART DISC TtST <PGM N4ME> <PGM DATE> <PGM KEV> 
2VSLIB REV. 6.0 
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U0U156 

* 

2V$AF= 

1 <*> 

000159 

* 

WDT 



000160 

* 

CHAN 

uEV'C 

ID 

000161 

* 

0400 

dskt 

2010 

00016* 

* 

0480 

DSK.T 

2010 

000163 

* 

0360 

Luk 

2006 

000164 

* 

1200 

DISC 

2330 

000165 

# 

1280 

Disc 

2330 

000166 

* 

1300 

LPT 

2000 

00016/ 

* 

13bO 

CuNS 

2019 

000166 

* 

MEMORY 

LUW 

00002C79 

000169 

* 

MEMORY 

HIGH 

00003FFF 

000170 

* 





000171 
0 0 0 17 2 
QUO 173 
00017** 
000173 
000176 
00017 7 
000176 
000179 
000180 
000181 
000182 
000163 
000184 
00U163 
000186 
000187 
000186 
000189 
000190 
000191 
000192 
000193 
000194 
000193 
000196 
000197 
000196 
000199 
000*00 
000*01 
000*02 

000203 
000*04 
000203 
OOO2O6 
OOO 2 O 7 
000206 
000209 
000210 
000211 
OOO 2 I 2 
000213 
000214 
000213 
000216 
000217 
000*16 
000*19 
000220 
000221 
000222 
000223 
000*24 
000*23 
000226 
000227 
000*26 
000229 
000230 
000231 
00023* 
000233 
OoO* 34 
000*35 
0Q0236 
0002 3/ 
000236 
000*39 
000240 
000*41 
000242 
000243 
000244 
000243 
000246 
000*47 
000*46 
000*49 
000*50 
000251 
000*52 
000253 
000254 
000*53 
000*56 
000257 
000*56 
000259 
000*60 
000*61 
000 * 6 * 
000*63 
000264 
000265 
000266 
000267 
000*66 
000269 
000*70 


16K 

THE PROGRAM WILL THEN AS<; 

CHAN ?: 

RESPOND WITH TmE FOUR DIGIT hex channel NUMBER !HAt is ASSIGNED TO a DtVICfc 
IN Tht SOdSYSTeM. THE PROGRAM wILL USE THE CuNTROliER PORTION OF THE CHAN¬ 
NEL NUMBER TO ADDRESS ALl DEVICES. IN THE EaAMPLf ABOVE* EITHER 1200 OR 
1*60 wOULd BE CORRECT . . . AS LONG . AS IT Iu THE INTENDED CHANNEL SET. 

THE AbOVE SEQUENCE WILL OCCUR ON THE FIRST START. AFTER A FRESH LOAD OF 
THE PROGRAM. RESTARTS PlCK UP AT THE QUESTION "NEXT ?5 M WHICH IS EXPLAIN¬ 
ED bELOW. 

THE BASIC QUEST I ON IS "NEXT ?; "WHICH GIVEs CONTROL TO THE OPERATOR. 

LO LI L2 L3 NEXT ?; 

EACH "L" IS THt CURRENT I EST REQUESTED FOR DtvlCES 0 . 1, 2. 3. A DASH 
IS UStD WHEN THERE IS NO REQUEST PRESENT*. TnE OPERATOR MAY REQUEST A PRO¬ 
CEDURE bY SELECTING FROM THE FOLLOWING; 

NUTe - MUST ENTRIES REQUIRE ONE LETTER AND A DEyTCF NUMBER ((0 TO 3). 


AN 

E 

ON 

HN 

I 


AU10MATIC TEST MODE* DEVICE N 

ENABLE ERROR REPORTS (NORMALLY ENmBLED = DEFAULT) 
DATA DISCRIMINATOR ADJUSTMENT AID 
HEAD ALIGNMENT AID 

- I.D. CHANNEL NUMBER RECONFIGURATION MAdf 
STOP - DELETE ALL UNITS FROM THE TEST LloT 

TN - TURNAROUND (CONTROLLER AND ADAPTEk ONLY) 

VN - SEtK VELOCITY ADJUSTMENT AID 
X - SUPPRESS ERROR REPORTS 
-N - DELETE UNIT N FROM TEST LIST 

ERROR REPORTING 

~DETECTED~lRRORS ARE REPORTED AS FOLLOWS; 


(NO DRIVES TESTED) 


ERR CODE AT AAAA 


WHERE; 


CODE = tRROK CODE WITH UNIuUE FIRST FOUR CnARACtFRS 
AAAA = LOCATION OF TEST IN PROGRAM WHERE ERROR WAS. 

NOTE; THIS PROGRAM CAN BE OPERATED WITHOUT A CONSOLE. ERROR-DATA IS 
LIMITED TO "CODE" IN REGISTERS "Rl" AND "R2"t AND "AAAA" IN REGISTER »B2". 
ALL ENTRIES MUdT BE MADE VIA REGISTER M R1". TnE PROCESS IS FURTHER EXPLAIN¬ 
ED IN MANuAL "AW94" ENTITLED "LEVEL -6 SYSTEM ChfCkOUT AND T 6 V MANUAL" . 
"62" REGISTER ADDRESS IS TO bE LOOKED UP IN TnE LISTING TO DETERMINE WHICH 
TEST FAILED. 

IF THE ERROR INVOLVES ERRONEOUS DATA, THE REPORT Wjl L BE FOLLOWED BY 1 TO 6 
LINES OF THE FOLLOWING; 

BYTE XXXX IS OOYY SB 0022 

WHERE; 

XXXX = RELATIVE BYTE LOCATION IN DATA BUFFtR (O.. 3 FFF) 

YY = ACTUAL DATA IN READ BUFFER AT THAT LOCATION 
22 = DATA IN SHOULD-bE BUFFER 

NOTE; BEFORE ATTEMPTING TO READ, THE READ BUFFER ISFILLED WITH 33 HEX 
^OOliOOin IN all bytes. A FAILURE To transfer data is indicated BY YY 

1 IF, 3 AT H AN* TIME, THE OPERATOR WISHES TO SUPPRESS THE ERROR REPORTING, HE 
MAY DU SO BY SELECTING MODE "X". IN THIS STaTE* THE PROGRAM WILL INDICATE 
AN ERROR BY OUIPUTING A SINGLE "NULL" CHARACTER TO THF CONSOLE AND CONTINUE 
IMMEDIATELY. 

RESTORATION OF ERROR REPORTING IS DONE BY SELECTING MODE "E". (DEFAULT 
IS TO DISPLAY ERRORS) 

END OF PASS REPORT 


AN END-UF-PASS 
ONE PORT. 


MESSAGE WILL BE DISPLAYED AT THf COMPLETION OF A TEST OF 


MODE- "A" OS 
DURING t. 


_ _ THE OPERATION OF MODE 

THIS GROUP OF TESTS IS - 

THESE ARE SPECIAL *“ 

TO DETERMINE IF THE 


"A", THE FOLLOWING SUBTESTS 


= subsystem is functioning properly. 


are performed. 
:: the program, 
-etermine if the 


10-BUS TEST 

write-read scratchpad x 

DATA WRAPAROUND TEST 
I.D. TEST 

STATUS and ATTENTION TEST 

NOTE; THE SPINDLE SHOULD BE CYCLED-UP TO CRFATE. An ATTENTION. 

MSJSr'fBSJ'aiftWPJIcTgw , 

SEARCH ♦ UPDATE TESTS 256-BYTE SECTORS 
HEAD SELECT TESTS 
PROTECT-SWITCH TESTS 
CHLCK-BYTE ERROR TESTS 
716-MODE TEST 

FORMAT TESTS 576-BYTE SECTORS 
SEARCH ♦ UPDATE TESTS 576-BYTE SECTORS 
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000271 

000272 

000273 

000474 

000275 

000276 

000277 

000278 

000279 

000280 

000281 

000282 

000283 

000^84 

000283 

00028t> 
000487 
000286 
000289 
000290 
000291 
000292 
000293 
000294 
000293 
000296 
000297 
000296 
.000299 
000300 
000301 
000302 
000303 
000304 
000303 
000306 
000307 
000306 
000309 
000310 
000311 
000312 
000313 
000314 
000313 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000323 
000326 
000327 
000326 
000329 
000330 
000331 
000332 
000333 
000334 
000333 
000336 
000337 
000336 
000339 
000340 
00034 i. 
000342 
000343 
000344 
000343 
000346 
000347 
000346 
000349 
000330 
000351 
000352 
000353 
000354 
000355 
000356 
000 j57 
000356 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000366 
000369 
000370 
000371 
000372 
0003 73 
000374 
U00375 
000376 
000377 
000376 
U00379 
000380 
000381 
000382 
000383 


SIMPLE SEEKS 

IMPLIED SEEKS 

FORMAT THE PACK 

SEEK ALL CYLINDERS 

DATA UPDATE WITH TRACK CHANGE 

DATA UPDATE WITH CYLINDER CHANGE 

MAXIMUM OFFSET RANGE TEST 

WORST CASE DATA-PATTERN TESTS 

MAXIMUM RANGE TESTS 

BOOTSTRAP TEST 

INTERRUPT TESTS 

A PASS TAKES ABOUT FQuR MINUTES. 


( 




during 

INDEPEN! 
IF THE L 
DENSITY. 


THt PROGRAM, THE DRIVE TYPE WILE BE TYPED OUT. THE OPERATOR MUST 
DENTLY CHECK THE RESULTS AGAINST THE EXPECTfD. I.E. HE MUST ‘ y “ 
DEVICE HAS REMOVEABLE ONLY, FIXED AND REMQvFABLE* “ ““ 


_ KNOW 

AND 100/200 TPI 


THE OPERATOR MUST THEN CYCLE-UP THE DRIVE TO CREAjf AN ATTENTION BIT IN 
STATUS. THE OPERATOR MUST ALSO OPERATE THE FALLOWING CONTROLS, AS REGUEST¬ 
ED BY THE PROGRAM. 

PERMIT / PROTECT REMOVABLE CARTRIDGE 
PtRMIT / PROTECT NON-REMOVEABLE PLATTER 


MODE- “t“ uSE 
ThE.RLSPpNSE_.QF 


Rors'on'the^consSle 


TO THE 


QUESTION “NEXT ?; 
THE ONLY WAY THAT Tf 


„ -._ vuiwuut* mt Mi’ll, i j 

PRESSED, WAS BY USE OF THE "X“ MODE. 
QUESTION ’’NEXT ?; " IS ASKED. 


. ,. „ FNABLES 

Thu. REPORTS COUL 


THE REPORTING OF 
P HAVE BEEN SUP- 


THERE ARE No OTHER EFFECTS, AND THE 


pfsC^f01NATQR ADJUSTMENT IS AIDED BY SELECTING A PARTICULAR 


MODE- 

DATA ___ ... „ . „ 

WRITING ID IF DESIRED, THEN HANGING TN A C0NT1N0US READ. 
RESPOND TO; 

CYLtHEAD,PlAT ?; 0-197,0-1,0-1 
WRITE (Y OR N) ?; 

DATA ?; O-FFFF 


the 


8&eSMS&’ 


AND 

MUST 


OR PRIOR VAuiE 
DEFAULT N 

DEFAULT AAAa OR PRIOR VALUE 


THE CARTRIDGE IS PLATTER 0 AND THE FIXED DISC (IF PRESENT) PLATTER 1. 
OPERATION WILL CONTINUE UNTIL A CONSOLE-BREAKJ 

IF A wRITt IS SELECTED, 4 FORMAT OF 12 X 576 uYTES WILL BE LAID DOWN, FOL¬ 
LOWED BY a A DATA WRITE. IF THE DISCRIMINATOR IS TOO BAD FOR THE DATA WRITE 
AN initial ADJUSTMENT MUST BE made USING AN LAlSTlNG track content. 


MQOE-“H" UpL 

HEAD ALIGNMENT EXPECTS A "CE-CARTRIDGL” 
ATOR MUST RESPOND TO: 

CYL.HEAD ?; 0-197,0-1 

THE USUAL CYLINDER SELECTIONS ARE; 


IS MOUNTED ON THE DRIVE. THE OPER- 
0R PRluR VALUE 


ALIGNMENT 

ALIGNMENT 

INutX-Tu-BURST 

INDLX-TO-bURST 


200 TP 
100 TP 

200 TPI 
100 TPI 


92 


(HlX) 

(HEX) 


I : St « 


« CYt A (HtA) 
. CYL 5 (H£a) 


$ 


A SEEK WILL BE MADE TO THE SELECTED CYLINDER mND ThF CONTROLLER WILL BE IN 
A CONTINUOUS READ UNTIL A CONSOLE BREAK IS DETECTED. 

MODE- “1“ USE 

THE CHANNEL NUMBERS USED BY THE PROGRAM BECAMt AVAn ABLE TO IT VIA THE RES- 
PQNCE TO THE QUESTION “CHANNEL ?; “ WHEN THE PROGRAM IS INITIALLY STARTED. 
RESPONDING TO “NEXT ?; ", WITH “I” RETURNS TH C PROGRAM TO THE “CHANNEL ?; “ 
QUESTION. 

AFTER A HlX VALUE IS RECEIVED, THE PROGRAM RfTURNS TO THE “NEXT ?; “ 
QUESTION. 


MODE- »T“ USE 

SELECTION OF MuDE «T« WILL EXECUTE 
PERTAINS TO THt CONTROLLER (MOTHpRBOARI 


PRESENCE OF ANY DEVICES IS NOT material 
MUST NOT DISRUPT THE ADAPTER-DEVICE l 
CONTROLLER CAN’T GAIN ACCESS TO 
AND ”T“ WILL NUT RUN, DISCONNECT 


THE PORTIuN OF THF “A» MODE TEST WHICH 
ARD) AND ADAPTFR (DAUGHTERBOARD). THE 

■ to This Mode, excepting that they 


R-DEVKE INTERFACE TO THE EXTENT THAT THE 

u the adapter, if thf devices are suspected, 

CTING THE DEVIClS IS RECOMMENDED. 




_ STAR I tD, “T” RUNS I NDEF INITELY. 
TRIKl THE CONSOLE bREAK-KEY! 


To Return to thf "next ?; 


question 


MODE- “V” USE 

adjustment of the seeking servo system is aided by rapid seeks between two 

CYLINDERS, AS SELECTED BY THE OPERATOR; 

CYl,CYL ?; 0-197,0-197 OR PRluR VAiUF 

THE USUAL CYLINDER SELECTIONS ARE ZERO AND; 


IO0-TPI 

200-TPI 


3,87,CB (HEX) 
3,87,192 (HEX) 


THE SEEK UPERATIONS WILL BE AS RAPID AS THE Dk 
BREAK-KEY IS DETECTED. NO ERROR CHECKS ARE Mm 


hi* 


PFRmITS, UNTIL A CONSOLE 


TI ON OF MODE “X« SUPRESSES FUTURE ERROR REPORTS, UNTIL UNSUPPRESStD BY 
.. ' .. ERROR REPORTS, IF ANY, Wilt. CONTINUE TO BE ENTERED 


MODE- “X" USE 
SELECTION UF .. _ 

MODE ”E“• THE FIRST 10 _ 

INTO THE ERROR HISTORY BUFFER. 

MODE- “STOP" USE 

THIS MODE WILL DELETE ALL MODES AND DRIVES FROM THF TEST LIST. 
MODE- “-N“ USE 

THIS MODE WILL DELETE A SINGLE DRIVE FROM I HE TfST LIST. 


CONTROLLER ASSOCIATED WORD FORMATS 
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000384 
000383 
000386 
000387 
00038b 
000389 
000390 
000391 
00039* 
000393 
000394 
000393 
000396 
000397 
000396 
000399 
O0040U 
000401 
00040* 
000403 
000404 
000403 
000406 
000407 
U0040b 
000409 
000410 
000411 
00041* 
000413 
000414 
000^13 
000416 
000417 
000416 
000419 
0004*0 
00U421 
00042* 
000423 
000424 
000423 
000426 
000427 
0004*6 
000429 
000430 
000431 
000432 
000433 
000434 
000433 
000436 
0 0 0 4 3 7 
00043b 
000439 
000440 
000441 
00044* 
000443 
000444 
000443 
000446 
000447 
00044b 
000449 
000450 
000451 
00045* 
000453 
000454 
000453 
000456 
000457 
000456 
000439 
000460 
000*61 
000462 
000463 
000464 
000*65 
00046b 
000*6? 
0U0*6b 
000*69 
0U0*7U 
000*71 


0000 


000472 

OOFF 




000a73 

OOFF 

0000 



00047a 

0100 

OFOO 

0000 


OOOA75 

010* 

OFOG 

0000 


000476 

0104 

0F60 

1791 


000477 

0106 

OF 9 1 



G00a76 

0107 

434F 

5039 

5249 


010a 

474b 

3431 

3937 



362C 

3139 

3737 



42 39 

464 F 

4E45 



5957 

4E43 

454C 

4C49 


000479 

Q00*8o 

000*61 

000*82 

000*83 

000*84 

000485 

0U0*6b 

00U487 

000*88 

000*89 

000490 

000491 


L 


F IRSTM 


CWA s CONFIGURATION WORD A 


- 0 
- 0 
- 0 
• - • • Q 
- 0 
- 0 
- 0 
7..-..C 

§ : i 

10 - c 

11.. — «.C 

12 - C 

13 - C 

14 - C 

15 - C 


s cartridge; i - non-removable disc 


CYLINDER 0000 
(CYLINDER 0000 


TO OOCb / 019/ HEX. 

TO 0*03 / 0407 DECIMAL) 


CWo s 
0 
1 
* 

3* ♦ 

4 

5 

7.. 

6 

10 

ii- 

\i 

15 


TSK = 
0000 
0100 
8000 
9000 
AOOO 
bOOO 
6100 
9100 
A100 
6100 
6300 
9300 
6400 
9400 
A400 
b400 
6200 
9200 
bBQO 
COOO 
C100 


CuNFIGUKAT1 ON WORD B 

- 0 
- 0 

- 0 
0 
0 


s TRACK; 0 = UPPER SURFACE* ULOWEr SURFACE 

sector; oo to 17 hex. 


task word 

RECALIBRATE 
SEEK CYLINDER 

FORMAT READ-WRITE, ___ 

FORMAT READ-WRITE, 576 BYTE SEC I OR, \? 

FORMAT READ-WRITt WITH SEEK, 24 SECTORS 
FORMAT READ-WRITE WITH SEEK * 1 * SECTORS 
DATA KEAD-*RITE, 256 BYTE SECTORS 
DATA READ-aRITE, 576 BYTE SECTOkS 
DATA READ-aRITE WITH SEEK, 256 bYTE SFCTORS 

DATA READ-aRITE WITH SEEK, 576 oYTE SFCTQR 6 

DIAGNOSTIC READ-WRITE, *56 BYTE SECTOR 
DIAGNOSTIC READ-WRITE, 576 BYTE SECTOR 

• D. FORMA) READ, 236 BY|E SECTdR, *4 SFCTORS 

• D. FORMA) READ, 576 BYTE SECTuR, 24 SFCTORS 
,.D. FORMA) READ wITH SEEK, 24 bECTOrs 

I • D. FORMAT READ WITH SEEK, 12 bECTOrs 
FORMAT DIAGNOSTIC READ-wRlTE, *36 BYTF SECTOR 
FORMAT DIAGNOSTIC READ-wRITE, 5/6 BYTf SECTOR 
FORMAT DIAGNOSTIC READ WITH CONTROLLfR HANG 
DATA WRAPAROUND AT ADAPTER 

DATA WRAPAROUND AT CONTROLLER 


256 BYTE SECIOR, ?4 SECTORS 
' CiORi I? SECTORS 


STATUS = STATUS WORD FROM MOST RECEN) OPERATION 
0 - DEVICE READY 

1 - ATTENTION 

* - DATA OVERRUN - UNDERRUN 

3.*-..WRITE OPERATION DENIED DUE TO wRITE^ pROTECT 

4 - ERROR DETECTION CODE ERROR ON READ 

5 - ILLEGAL SEEK REQUESTED 

6 - MISSED DAlA SYNC - MARK 

7..UNSUCESSFuL SEARCH FOR SECTOR - ID 
6 - CLOCK - PjISE MISSING 

9 - MISSED SECTOR PULSE 

10 - SEEK REQUESTED BEYOND CYLINDER LIMIts 

NOT ASSIGNED 

12 - MAIN MEMORY ERROR (CORRECTED - YELLOW) 

13 - NON - EXISTANT RESOURCE 

14 - BUS PARITY ERROR 

15 - MAIN MEMORY ERROR (NOT CORRECTABLE - RfD) 


ORu 

XLOC 

XLOC 

CTRL 

CTRL 

XLOC 

ORU 

NOP 

NOP 

B 

B 

TEXT 


*ERu 

2V$ARG,ZVSER,*V$RD),ZV*BKF,ZV*HR,ZV*SV1,7V$SV2 
ZHPFR,ZV*U,ZV*QC 
LINK ZVSER 
LINr ZVST 

zhisaz,zhiafb,zhnres 

ZERU+X * FF• 


lltt 9 


_ EKO 
<WR)BFR 
>RESTRr 

* COPYRIGHT1976,1977BYHONEYWELL INC* 


CHECK PROGRAM IS In CORRECT 
ADDRESS FORM. (SAf OR LAF) 
BRANCH ONLY AFTER FIRST LOAD 


0117 
0119 
0 I i A 


0117 

9670 2D30 
2CFC 

9F20 0210 


********************#******* * ****** 

* * 

* SELECT DRIVES AND TESTS * 

* TO Be PERFORMED ON THEM * 

* * 
***************************k******* 

* 

* restart - (also "Siop« mode) 

* 

RESTRT EQU $ 

LDR sRl,=»-0* SET MODES TO -0 -1 -2 -3 

LUV 3>R2, = -4 

SA STR $Rl,<M0DE*4.$R2 
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00049c 

one 

8 AD 1 




INC 

= $Ri 


000493 

0110 

27f-Q 




BINC 

$R2 »>-$A 


000494 





* 




000493 





* SET 

UP DEFAULT CONDITIONS 

*■ 

000490 





* 




000497 

Olit 

8700 

0826 



Co 

<PRTFEG 


000490 

0120 

Obbc 

02 C6 



LAB 

$B4,<P0RT0 


000499 

0122 

8700 

0215 



00 

<SEwN*$AF-1 

CLEAR 

G0030U 

0124 

8700 

0216 



CL 

<SEQN1♦sAF-l 

THE 

000501 

0126 

8700 

0217 



CL 

<SEuN2*$AF-l 

sequence 

000502 

0128 

8700 

0218 



CL 

<SEuN3+$AF~l 

table 

000303 

012a 

OBbO 

01B8 



LAb 

$B5,<NEXT6 

PRESET "BREAK-KEY" FXlT 

000504 

012 C 

0F60 

0867 



STB 

$B5 *<SENSb5 +1 


000503 





* 




000306 





* REPORT CUkktNT NODES AND ASK ’’NEXT ?; w 

000507 





* 




00030b 

0126 

0380 

0436 


NEXT 

LNJ 

$B5t<ZVCREF 

DO CR-LF 

000309 

0130 

20F0 




LOV 

$R2 f = »4 


000510 

0131 

9820 

0210 


SB 

IDR 

$R 1» <MODE*4.$R2 


000511 

0133 

0380 

044b 



Lh j 

$B5 * <VDTR 

PRINT 2 ASCII CHARS ♦ SPACE 

000512 

0133 

27FC 




BiNC 

$R2»>-$6 


000313 





NEXT A 

CALL 

ZV$T #ZV$Q *MSNtXT 

ASK THE QUESTION "NFXT ?? H 


0136 

F BOO 

0003 







013b 

0380 

0000 

X 






013a 

OF 80 








013d 

0209 







000514 

013C 

8752 




OE 

= $Rc 


000315 

013 0 

8700 

0213 



CE 

<MFlAG 

PORT MODIFIED FLAG 

000316 

013F 

8700 

0214 



Cl 

<RTKFLG 

ROTOR FLAG 

000317 





* 




00051b 





* 

Input 

MODES DESIRED 


000319 





* 




000520 

0141 

0380 

0411 


NEXTB 

LNJ 

$B5 «<ZVIA 

call zv$ia 

000321 

0143 

8753 




OL 

-$R3 


000522 

0144 

9B80 

OOOU 

X 


LAB 

$61*<RDBUFR 

SET POINTER To INPUT 

000523 

Ol4 0 

6880 

0000 

X 


DEC 

<ZV$Ak6 

DECREMENT FOR CQMMa* CR 

000524 





* 




000525 





* 

DECODE MODES AND 


000326 





* 

CHECK 

VALIDITY 


000527 





* 




00032b 


0148 



NEXTE 

tuu 

$ 


000329 

0148 

8980 

0000 

X 


CMZ 

<ZVSARG 


000530 

014A 

0900 

OlAE 



dE 

<NExTF 

INPUT EXHAUSTED? 

000331 

014C 

0380 

018C 



LNd 

$B5♦«CUPAK 

GET NEXT BYTE 

000332 

014t 

0836 




LDP 

$R4 ♦ s $R6 


000533 

014F 

6020 




CMV 

$R6i=» » 


000334 

0150 

097 8 




bE 

>NEaTE 


000335 

0151 

6053 




CMV 

$R6,=*S» 


000536 

0152 

0900 

0117 



BE 

<RESTRT 

RESTART 

000337 

0154 

6041 




CMV 

SR6»-*A» 

MODE "A" 

00033b 

0155 

E880 

0885 



LAB 

$66 » <MODEA 


000539 

0157 

0926 




BE 

>CMnA 


000340 

0138 

6044 




CMV 

$R6*s»D» 


000341 

0159 

6045 




CMV 

$R6 * s•E • 


000544 

015m 

0900 

01E9 



BE 

<SETE 

ENABLE ERROR REPORTS 

000343 

0150 

6046 




CMV 

$k6*=*F» 


000344 

0150 

6047 




CMV 

$R6i=»G» 


000545 

0156 

EBCQ 

1564 



LAB 

$ 661 MODEG 

DATA DISCRIMINATOR ADJUSTMENT AID 

000346 

0160 

0910 




BE 

>CMNA 


000547 

0161 

6048 




CMV 

$R6*=*H» 


00054b 

0166 

Eb60 

17 ID 



LAb 

$B6t<M0DEH 

HEAD ALIGNMENI ROOjine 

000549 

0164 

0919 




BE 

>CMNA 


000350 

0165 

6049 




CMV 

$R 61 s * I * 


000351 

0166 

0900 

01 ED 



bE 

<SE i I 

GET NEW CHANNEL ♦ RFSTART 

000552 

016b 

6054 




CMV 

$R6*s»T» 


000553 

0169 

EB80 

0876 



LAB 

$B6 *<MODET 

WRAPAROUND 

000354 

0160 

0912 




BE 

>CMNA 


000553 

0160 

6056 




CMV 

$R6,=*V« 


000556 

0160 

EBCO 

15F7 



LAB 

$66»MODEV 

SEEK SERVO VElOCITy ADJUSTMENT 

000357 

016F 

090E 




BE 

>cmna 


00055b 

0170 

6058 




CMV 

$R6*=»X» 


000559 

0171 

0900 

01 F1 



BE 

<SETX 

disable ERROR REPORTS 

000560 

0173 

6020 




CMV 

$R6*s»4» 


000561 

0174 

EB80 

012E 



LAb 

$B6,<NEXT 

CLEAR $B6 

000362 

0176 

0907 




OL 

>CMnA 


000563 

0177 

9B80 

01FF 


INVLID 

LAB 

$BU<MSINVD 

INVALID RESPONSE J 

000564 

0179 

0380 

043b 



LNJ 

$65 *<ZVTC 

PRINTOUT 

000365 

017b 

0F80 

012 E 



b 

<NEXT 


000566 





* 




000567 





* SET 

VALID 

MODES 


00036b 





* 




000569 

0170 

0380 

0190 


CMNA 

LNJ 

$B5,<CKVLDN 

GET A VALID PwRT 

00057 Or 

V 17 F~ 

9853 




LOR 

$R1,=$R3 

SET"INDEX “ 

000371 

0180 

EF90 

0215 



STB 

$B6i<SEQN«$Ri 

STORE TEST-ADuRESS in SEQUENCE TABLE 

000372 

0182 

0944 

0000 



CMK 

$R3,$b4 r P0RTNJ 

EQUAL PRESENT PORT? 

000573 

0184 

0980 


T 


bNt 

>*$A 


000574 

0183 

8 ABO 

0213 



INC 

<MFlAG 

SET FLAG - PRt-SENT MODE CHANGED 

000375 

018 / 

3F02 



$A 

MLV 

$R3»= 2 

SET INDEX 

000376 

0188 

07 BO 

0200 



STH 

$R4,<M0DE.$R3 

STORE MODE IN CORRFCT PORT 

000377 

018 A 

OF 80 

0148 



b 

<NEXTE 


000578 





* 




000579 





* GET 

WORD i 

FROM $61 


000380 





* UNPAOK WORD IN R7 —> BYTE 

IN R6 

000381 





* 




000382 

0180 

8880 

0000 

X 

CUPAK 

DEC 

<ZV$ARG 


000583 

0 I8t 

8980 

0211 



CMZ 

<6YT5W 

GET A NEW WORb? 

000584 

0190 

0900 


T 


bt 

>*$A 


000583 

0191 

7090 




DDL 

$R7 ♦ 16 


000586 

0192 

8700 

0211 



CL 

<BYTSW 


000587 

0194 

8385 




JMP 

$B5 


000388 

0193 

F 871 



$A 

LDR 

$R7 * + $B1 

INPUT WORD 

000589 

0196 

8756 




CL 

= $R6 


000590 

0197 

7088 




DOL 

$R7,8 


000591 

0198 

7048 




SOR 

$R7 « 8 


000594 

0199 

8600 

0211 



CPL 

<BYTSW 

SET SWITCH 

000593 

019b 

838 p 




JMP 

$B5 


000594 





* 




000593 





* 

CHECK 

FUR A VALID PORT 

NUMBER 

000396 





* 




000597 

0190 

0F80 

01 AD 


CKVLDN 

STb 

$65*<CKVLDX+1 

STORE WHERE FROM 

000398 

019c 

0380 

0180 



LNJ 

$B5 * <COPAK 

GET BYTE 

000599 

0 I AO 

6030 




CMV 

$R6»=»0* 


000600 

01A1 

0908 




BE 

>VLDNO 




Af 
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000601 

01A2 

6D31 



CMV 

$R6 , = • 1 * 



000602 

0 1 A3 

0906 



b6 

>VLuNQ 



000603 

01A4 

6032 



CMV 

$R6 * = * 2 * 



000604 

0 1 A3 

0904 



bb 

>VLDNO 



000o0t> 

01A6 

6033 



CMV 

$R6 * s•3• 



000606 

OiA f 

0980 

0177 


bNt 

<INvUD 

PORT NOT VALIu 


000607 

01A9 

bb56 



VLDNO LDR 

$R3,=$R6 

R6 —> R3 


00060b 

01AA 

300C 



SOL 

$R3 * 12 



000609 

0 1 Ab 

304C 



30R 

$R3,12 

ASCII —> HEX 


OOOblO 

0 1 al 

uFbO 

0000 


CKVLDX b 

<RETUKN 

EXIT 


OOOoli 





* 




000612 





* 




000613 


0 1 At 



NtXTF tuu 

$ 



000614 

0 1 Ac. 

8980 

U212 


CMZ 

<FCOMMA 



000ol3 

OltJU 

09b0 

0 1 A 1 


bNL 

<NEATB 

COMMA DETECTEu 


000616 

01b2 

8980 

0213 


CMZ 

<MFLAG 

CK IF PRESENT PORT MOD IF I ED 


000617 

0 1 b4 

0900 

0866 


bt 

<SLNSB5 

BCH IF NO,RETuRN To WHATEVER WAS 

RUNNING 

oooolb 

0 lb6 

8700 

0213 


C6 

<MFLAG 



OOOo19 





* 




000620 





* DtTLkMlNb wHAT TO DO FIRST? 



000621 





* 




000622 


01B8 



NEXTG tuU 

$ 



000623 

0 lbb 

bb44 

0000 


LOR 

$R3,$B4 # P0RTNJ 



000624 

0 1 BA 

3F 02 



MLV 

$R3,=2 



000623 

Olbb 

8740 

0058 


C6 

RTRFlG 



000626 

oibo 

FObO 

020C 


$A 6DH 

$R7 , <MODE«» $R3 

CK PORT FOR AjSIGNmfNT 


000627 

Olbf- 

7020 



CMV 

$R7,=»-, 

NOTHING ASSIGNED? 


00062b 

OlCO 

0980 


T 

bNt 

> + $b 



000629 

01C1 

bA70 

0002 


ADD 

$R3 , -2 



000630 

01C3 

30 Ob 



CMV 

$R3,=6 

END OF PORT-1mBLE? 


000631 

0 1 0.4 

0279 



b6 

>-$A 

NO 


000632 

0103 

8733 



C6 

= $R3 



000633 

0106 

8980 

0214 


Cmz 

<RTrFLG 

ROTOR FLAG 


000634 

OiCb 

bACO 

004B 


INC 

RTRFLG 

SET PASS COMPLETE 


000633 

01 Cm 

0973 



b6 

>-$A 

FIRST PASS 


000636 

010b 

8740 

0048 


CL 

RTRFLG 



000637 

0100 

oFbl 

F F 6 0 


b 

NEXT 2-PASSES ♦ 

nothing assigned 


00063b 

01 OF 

BA03 



SB INC 

= $R3 



000639 

0100 

90b0 

U20C 


LDH 

$R1,<M0DE.$R3 

GET PORT 


000640 

0102 

100C 



S06 

$Ri,12 

STRIP ASCII BITS 


000641 

0103 

104C 



SOR 

Ski*12 



000642 

0104 

8390 

01D6 


JMP 

<LDPOKT.$kl 

LOAD $64 WITH PORT.nO. 


000643 





* 




000644 





* GET SOMETHING RUNNING 



000643 





* 




000646 

0106 

QFb? 



LDPORT b 

>LPuRTO 



000647 

0107 

UF8A 



b 

>LPORT1 



00064b 

01 Ob 

OF 80 



B 

>LPuRT2 



000649 

0109 

CB80 

0317 


LP0RT3 LAB 

$B4,<PQRT3 



000630 

010b 

8388 

0218 


JMP 

#<StQN3 



000651 

OIDu 

CB80 

02C6 


EPORTO 6AB 

$64,<PORTO 



000652 

0101- 

8388 

0215 


JMP 

*<StUN 



000653 

01E1 

Cb80 

0261 


6P0RT1 6aB 

$64 *<PORT1 



000654 

0163 

8388 

0216 


JMP 

*<StUNl 



000655 

0163 

CB8U 

02FC 


LP0RT2 6AB 

$B4 ,<PQRT2 



000656 

0167 

8388 

0217 


JMP 

*<StUN2 



000657 





* 




00065b 





* 




000659 


01E9 



SETE EDO 

$ 



000660 

0169 

8700 

0826 


CL 

<PR(FLG 

CLEAR INHIBIT ERROR-PRINT 


000661 

016b 

OF 60 

0148 


b 

<NEXTE 



0U0662 

0160 

0380 

021A 


SET I LNJ 

$B5, <MODPCU 

GET NEW CHANNtL ♦ RFSTART 


000663 

016F 

OF 8 1 

FF27 


B 

RESTRT 



000664 

OlFl 

F800 

02A8 


SETX 6DR 

$R7 *<ONES 

SET INHIBIT 


000665 

0 1 F 3 

FFOO 

0826 


STR 

$R7 *<PRTFLG 

error-print 


000666 

01F3 

0F8I 

F F 52 


b 

NEXT E 



000667 





*-——- 




00066b 





* TEST COMPLETE* DELETE IT * 



000669 









000670 


01F7 



DONE LuU 

$ 



000671 

OIF 7 

9844 

0000 


LDK 

$Rl,$b4.PORTNO 

GET PORT NQ 


000672 

01F9 

1F02 



MLV 

$kl,-2 



.000673 

o 1F A 

7C20 



LDV 

$R7,=»-» 



000674 

OlFb 

F 790 

020C 


STH 

$R7,<MQDE.SR1 

DELETE MODE FkOM TABLE 


000673 

01FO 

OF 80 

01B6 


b 

<NExT G 



000o76 

01FF 

4946 

5641 

4C49 

MSINVD TEXT 

• INVALID RESPONSE!•* 

Z•ODOA•,•$ * 



0202 

4420 

5245 

5350 






0203 

4F46 

5345 

210D 






020b 

0A24 







000677 

0209 

2046 

4556 

5424 

MSNLXT TEXT 

• NtXT$ * 



00067b 

020C 

0000 



MODE RESV 

4,0 

present mode for each port 


000679 

0210 

0000 



CNSTAT RESV 

1,0 

CONSOLE STATUS 


000680 

0211 

0000 



BYTSV RESV 

1,0 



000681 

0212 

0000 



FCOMMA RESV 

1,0 

FLAG THAT COMMA WAs DFTLCTLD 


000682 

0213 

0000 



MFLAG RESV 

1,0 

FLAG THAT PRESENT DRIVE HAS BEEN 

MODIFIEt 

000683 

0214 

0000 



RTRFLG RESV 

1,0 

ROTOR FLAG 


000684 

0213 

0000 



StUN DC 

<ZEKO 



000683 

02 lo 

0000 



SE0N1 DC 

<ZtKO 



000686 

0217 

0000 



SE0N2 DC 

<ZEkO 



000687 

021b 

0000 



SEUN3 DC 

<ZEKO 



000688 

0219 

0000 



PASS1 RESV 

1,0 

PASS COUNTER 


000689 





**--- 




000690 





* MODPCU 

SUBROUTINE * 



000691 





—-- 




000692 

021A 

PF80 

0253 


MODPCU STB 

$B5 * <M0DB5 + 1 

STORE WHERE CaME FROM 


000693 





CALL 

ZVST • ZV$QC , MSCHAN 

ASK QUESTION CHAN ?; 



0* 1C 

FBCO 

0003 







0216 

D380 

0000 

A 






0220 

OF 80 








0221 

02BC 







000694 





CALL 

ZV$1H,CHANEL 

GET CHANNEL 



0222 

F6C0 

0003 







0224 

D380 

0000 

X 






0226 

OF80 








022 7 

02A7 







000695 

022b 

9B80 

0458 


LAB 

$B1,<MSNULL 



000696 

022A 

D380 

043B 


LNJ 

$B5,<ZVTC 

CR - LF 


000697 

022C 

CBBO 

02C6 


LAB 

$B4 , <PORTO 



000698 

0226 

D870 

F600 


LDK 

$R5,=Z»FE00* 



000699 

0230 

D500 

02 A 7 


AND 

$R5 ,<CHANEL 

strip ports From Channel 


000700 

0232 

DFOQ 

02A7 


STR 

$R5 ,<CHANEL 



000701 

U2 34 

8751 



CL 

= $R1 



000702 

0235 

9bCQ 

0016 


LAB 

$B1,INCMD 
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000703 
000704 
000705 
000706 
000707 
000706 
000709 
000710 
000711 
0007 U 
000713 
000714 
000716 
000716 
000717 
000718 
000719 
Q0072U 
000721 
000722 
000723 
000724 
000725 
000726 
000727 
00072b 
000729 
000730 
.000731 
00073c 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000 749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000 tba 
000769 
000770 

000 n i 
000772 
000773 


0237 

DA70 

0002 

$A ADD 

$R5, = X•0002• 


0239 

DF5D 


STR 

$R5,SB1•♦$Ri 


023A 

1D1F 


CMV 

*R1,=X*IF* 


023B 

027C 


!t 

>-$A 


023C 

6751 


= $R 1 


023D 

D800 

02A7 

EDR 

$R5,<CHANEL 

GIVEN CHA 

023F 

DF4Q 

0033 

STR 

$R5,RCTL 

0241 

5E01 


ADV 

$R5,=X*Q1* 


0242 

DF40 

0031 

STR 

$R5,WCTL 


0244 

9BC0 

0030 

LAB 

SB1,0UTCMD 


0248 

5E02 


SB ADV 

$R5,=X*02* 


0247 

DF5D 


STR 

$R5,$B1•+$R1 


0248 

1D1F 


CMV 

SR1,=X*1F* 


0249 

027D 


bL 

>-$B 


024A 

D800 

02A7 

LDR 

$R5,<CHANEL 


024C 

5E09 


ADV 

$R5, = X * 09• 

rd-iold 

024D 

DFOO 

0294 

STR 

SR5,<RLOAD 

024F 

5E40 


ADV 

SR5, = X * 40 * 

wrt-iold 

025u 

DFOO 

0278 

STR 

$R5,<WRTADD 


0252 

OF 80 

0000 

M0DB5 B 

<RETURN 

EXIT 




* TABLE OF 

# 

COMMANDS 



000809 

000810 

OOObll 

000612 

000&13 

000814 

000815 


INCMD tQU 
RJNUPT RESV 
RtSV 
RTASK RtSV 
INADD ktSV 
INNOD RESV 
RRANGE RtSV 
ROFRGE RESV 
kCNFGA RESV 
kCNFGB RtSV 

resv 

RtSV 
RSTUSi RtSV 
RtSV 
RtSV 
RESV 
RtSV 
RESV 
RESv 
RDIDNT RtSV 
RtSV 
RtSV 
RINPTV RtSV 
RtSV 

FIRMID tUU 

RCTL RtSV 
WCTL RtSV 

GUTCMD tQU 
WINUPT RtSV 
RtSV 
WT ASK RtSV 
WRTADD RtSV 
RtSV 
WRANGE RtSV 
WOFRGt RtSV 
wCNFGA RtSV 
WCNFGb RESV 
RtSV 
RtSV 
wSTUSl RtSV 
RtSV 


000774 

0267 

0000 


RESV 

1,0 

000775 

0286 

0000 


RESV 

1,0 

000776 

0269 

0000 


RESV 

1,0 

000777 

028A 

0000 

WINPTV 

RtSV 

1,0 

000778 

028b 

0000 


RtSV 

9,0 

000779 


0278 

WLOAD 

tQU 

WRTADD 

000780 

0294 

0000 

RLOAD 

RESV 

1,0 

000781 


025F 

RSTUS 

tuU 

RSTuSl 

000782 



# 



000783 



* 

TASK- 

WURDS 

000784 



* 



000785 

0295 

~ DODO 

RCALbT 

DC 

= 2 * 6000• 

000786 

0296 

0100 

SEK 

DC 

=Z*0100* 

000787 

0297 

6000 

FMT 

DC 

=2*6000* 

000786 

0296 

9000 

FMT 12 

DC 

=2*9000* 

000789 

0299 

AOOO 

FMTSEK 

DC 

= Z * AOOO * 

000790 

02 9 A 

bOOO 

FMTSK2 

DC 

= Z * bOOO• 

000791 

029b 

6100 

DATA 

DC 

= Z * b100• 

000792 

029C 

9100 

DATA12 

DC 

=Z*9lOO* 

000793 

029D 

A100 

DATSLK 

DC 

= Z * A100 * 

UU0794 

029c 

blOO 

DATSK2 

DC 

= Z * blOO• 

000795 

029F 

8300 

DIAG 

DC 

=7*8300* 

000796 

0*: AO 

9300 

DIAG12 

DC 

= Z * 9300 * 

000797 

02 A1 

8400 

RD1D 

DC 

=Z*6400* 

000796 

02A2 

9400 

RDID12 

DC 

= Z * 9400• 

000799 

02A3 

A^OO 

RDIDSK 

DC 

= Z * A400 * 

OuOoOO 

02A4 

B400 

RIDSK2 

DC 

=Z*b400» 

000601 

02A5 

8200 

FDIAG 

DC 

= Z * 6200 * 

00060^ 

02A6 

9200 

FD1AG2 

DC 

= Z • 9200• 

OOOoOi 



* 



000804 



* 

PAKAMtltRS 

000605 



# 



00060b 

02A7 

0000 

CHANtL 

RESV 

1,0 

000607 



* 




CODE 

ADDRESS 

MODULE 

RANGE 

OFFSET RANGE 
configuration WORD a 
CONFIGURATION WORD B 


STATUS WORD 1 
STATUS WORD 2 


channel MONITOR 
DEVICE I.D. 
channel NUMBER 
C.P. ADDRESS 
INTERRUPT VECIQR 
WORKING LOCATIONS 

LOCATION OF FiRMWArf REVISION NUMBER 

READ CONTROL wQRD 
WRITE CONTROL WORD 


INTERRUPT LEVcL 

START-UP FUNCTION CODE 

TASK 

ADDRESS 

MODULE 

RANGE 

OFFSET RANGE 

WRITE CQNFIGUkATIOn WORD A 
WRITE CONFIGURATION WORD B 


STATUS WORD 1 
STATUS WORD 2 


DMA CONTROL 
DEVICE I'D, 
CHANNEL NUMBEk 
C.P. ADDRESS 
INTERRUPT VECTOR 
WORKING LOCATiONS 
IOLD FOR WRITc 
IOLD FOR READ 


RECALIBRATE^ 

FORMAT Y READ-WkITE, ?56 BYTE SECTOR , 24 SECTOR 
FORMAT READ-WrUTE, 576 BYTE SECTOR, 12 SECTOR 
FORMAT READ-WKITE WITH SEEK, 24 SECTOkS 
FORMAT READ-WKiTE WITH SEEK, 12 SECTORS 
DATA READ-WRITE, 256 BYTE SECTORS 
DATA READ-WRIrt, 576 BYTE SECTORS 


DATA READ-WRI It, 576 BYTE SECTORS 
DATA READ-WRIfE WITH SEEK, 256 BYTE SECTORS 
DATA READ-WRITE WITH SEEK, 576 BYTE SECTORS 
DIAGNOSTIC READ-WRITE, 256 BYTE SECTORS 
DIAGNOSTIC RtAD-WRiTE, 576 BYTE SECTORS 
I.D. FORMAT RtAD, ?56 BYTE SECTOR, 24 SECTORS 
I.D. FORMAT ReAD, 576 BYTE SECTOR, 12 SECTORS 
i.D. format Read with seek, 24 sectors 
I.D. FORMAT Read with seek, 12 SECTORS 
FMT DIAGNOSTIC REAd-WRITE, 256 BYTE SECTORS 
FMT DIAGNOSTIC REAd-WRITE, 576 BYTE StCTORS 


CONSTANTS 


- LOCATIONS 


RETURN 

NExTST 

ONES 

AZEROS 

ZEROS 

FOUR 


ZERu 
ZERO 
= Z*FFFF* 
<ZEKOS 
1,0 

=X*0004* 


ADDRESS OF The. ZERO WORD 
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0008l6 

02 AC 

OOOb 



EIGHT 

pc 

= X•0008 * 


000617 

02 Ao 

OOOC 



TWELVE 

DC 

*2•OQQC* 


0006 I 8 

02 At 

0303 



TIRTY3 

DC 

^2 * 0303• 


gr •ooob iv 

02 AF 

0060 



SIXTY 

DC 

= X •0060• 


| N 000620 

02b0 

0000 



trkmsk 

RtSV 

1*0 


I 000621 

02B1 

0000 



H1STRY 

RtSV 

11*0 


K*-* 0006 22 

02bC 

4348 

414L 

2400 

MSCHAN 

TEXT 

•CHANS* 


000823 

02BF 

454E 

4420 

4F46 

MSEOPS 

TEXT 

•END OF PASSS• 



02C2 

2050 

4153 

5324 





000824 

02C5 

0000 



MEMS2E 

RtSV 

1*0 


000626 









000626 





* TABLE OF 

PARAMETERS * 


000627 





* FOR 

EACH 

PORT * 


000626 









000629 





* 




000630 





* 

INDEX 


000631 





* 




000632 


0000 



PORTNO 

EOU 

0 

INDEX OF PORT 

000633 


0001 



CYLNO 

EgU 

PUR NO-* 1 

ACT Vt CYLINDER 

000634 


0002 



TRKNO 

EOU 

POR N0-*2 

ACT VE TRACK 

000636 


0003 



SECTR 

too 

POR N0-*3 

ACT Vt SECTOR 

000636 


0004 



PLATER 

EOU 

POR' NQ-*4 

ACT Vt PLAT T tK 

000637 


0005 



MINCYL 

tou 

POR NQ-*5 

MIN MUM CYLINbER ALLOWED 

000638 


0006 



MJNTRK 

too 

POR N0-*6 

MIN MUM TRACK ALLOWFD 

000839 


0007 



MAXCYL 

EoU 

PUR NO-*7 

MAX MUM CYLINDER AlLOWEU 

000640 


0006 



MAXTRK 

too 

POR NO+8 

MAX MUM TRACK ALLOWFD 

000641 


0009 



MODE IN 

tou 

POR N0-*9 


000642 


OOOA 



DISCID 

tou 

POR NO-* 10 

DEVICt I.D* 

000643 


OOOb 



STATUS 

tou 

PORT NO-* 11 

STATUS ON THlo PORT 

000644 


OOOC 



WCWA 

tou 

PORT NO-* 12 

WRITE CONFIGURATION WORD A 

000646 


0000 



wcwb 

tou 

POR T NO-* 13 

WRITE CONFIGURATION WORD B 

000846 


OOOb 



RANGE 

tou 

PORTNO-* 14 

RANGE 

00064 7 


GOOF 



OFSTRG 

tou 

PORTNO-* 15 

OFFSET RANGE 

000646 


0010 



PORTCH 

EoU 

P0RTN0-*16 

PORT CHANNEL 

000649 


0011 



SCTRMX 

EOU 

PORTNO-* 17 

number of sectors 

000660 





* 




000651 

02C6 

0000 



PORTO 

DC 

5X*0000« 


000652 

02C 7 

0000 




RtSV 

15*0 


000653 

02Do 

0000 




DC 

=X*0000» 


OOOb 54 

02D7 

0000 




RESV 

10*0 


000b55 

02L1 

0001 



PORT! 

DC 

sX•0001 * 


000656 

02L2 

0000 




RtSV 

15*0 


000657 

02 F1 

0080 




DC 

sX•0080• 


000658 

02F2 

0000 




RtSV 

10*0 


000659 

02 F C 

0002 



PORT 2 

DC 

sX•0002• 


000660 

02 FO 

0000 




RESV 

15*0 


000661 

030C 

0100 




DC 

=X»U100* 


000662 

0300 

0000 




RtSV 

10*0 


000663 

0317 

0003 



P0RT3 

DC 

sX * 0003 * 


000664 

0316 

0000 




KfcSV 

15*0 


000665 

0327 

0160 




DC 

=X»U180» 


000b66 

0326 

0000 




RESV 

10*0 


00066 7 






000666 





# 



* 

000669 





* 

Sub-ROUTINtS USED 

* 

000870 





* 

BY StVtRAL SEGMENTS 

* 

f 000871 





* 



* 

! 000672 





ft*************************** ******* 

{ 000673 





# 




000674 





* 

RECALIBRATE 


000875 





* 




000876 


0332 



RECALB 

tou 

s 


000677 

0332 

A800 

0277 



LDR 

SR2 * <WTASK 


000876 

0334 

A644 

0010 



XUR 

SR2 *SB4,PORTCH 


000679 

0336 

F3C0 

0220 



LNJ 

SB7 * SIONAK 

PRESET NAK TIMEOUT 

OOobbu 

0336 

6000 

0295 



IQ 

<RCALBT*=$R2 



033A 

0052 







000681 

033b 

0761 

0226 



B1 OF 

IQNAK 


000682 

033u 

6365 




JMP 

SB5 


000683 





* 




00086* 





* 

STANDARD StEK 


000885 





* 




000686 


033t 



PSEK 

tuu 

S 


000687 

0331 

A600 

0277 



LDR 

SR2 * <WTASK 


000688 

0340 

A64* 

0010 



XUR 

$R2 * $64,PORTCH 


000869 

034^ 

F3C0 

0214 



LNJ 

SB7*SIONAK 

PRESET NAK TIMEOUT 

000690 

034* 

8000 

0296 



10 

<SEk * 5$R2 

StEK 


03*6 

0052 







000691 

034 7 

0761 

02 1C 



blUF 

10NAK 


000692 

0349 

6385 




JMP 

$B5 


000893 





# 




000694 





* 

SEEK 

and read id 


000896 





* 




000696 

0 34 A 

8 F 40 

0022 


SEkID 

save 

SEKSAV * = 2 * 7F7F• 



034C 

7 F 7 F 







000697 

0340 

D360 

U4A2 



LNJ 

SB5 *<FCwD 


000896 

034F 

0380 

04CA 



LNJ 

SB5,<WRT CtoD 


000699 

0351 

A800 

0294 



LDR 

SR2 * <RLOAD 


000900 

0353 

A644 

0010 



XOR 

SR2*$b4.PORTCH 


000901 

0355 

F3C0 

0201 



LNJ 

SB7 * S1ONAK 

PRESET NAK TImEQUT 

000902 

0357 

8180 

0000 

X 


I OLD 

<RDb0FR,=$R2,s2*0004» RLOAD 


0359 

0052 








0 3 5A 

007b 

0004 






000903 

035C 

0781 

0207 



bJOF 

IONmK 


000904 

035L 

A800 

0277 



LDR 

$R2 *<wTASK 


000905 

0360 

A644 

0010 



XUR 

SR2 * SB4* PORTCH 


000906 

0362 

F 3C0 

0 i F 4 



LNJ 

Sb7*SIONAK 

PRESET NAK TIMEOUT 

000907 

0364 

6000 

02 A3 



IU 

<RDiDSK,=$R2 

READ-ID W-SEEk 


036o 

0052 







GO u 9 0 8 

0 36/ 

0761 

01FC 



blUF 

ionak 


000909 

0369 

8 F CO 

0003 



RSTR 

SEKSAV * = 2 * 7F7F • 



036o 

7 F 7 F 







000910 

036C 

6365 




JMP 

SB5 


000911 

U36b 

0000 



SEKSAV 

RESV 

7*$aF -*7,0 


000912 





* 




000913 





* 

1 OLD 

for read 


000914 





* 




000915 

03 Yd 

OF 60 

0392 


RIOLD 

STB 

SB5 * <RIOLDX-* 1 

STORE RETURN 

f ' 000916 

037b 

A600 

0294 



LDR 

SR2 * <RLOAD 


1 000917 

u3 7F 

A64* 

0010 



XOR 

$R2*Sb4.PORTCH 


1^'" 000916 

0361 

F3C0 

01D5 



LNJ 

SB7,SIONAK 

PRESET NAK TImEQUT 

000919 

0383 

6160 

0000 

X 

RIOLDB 

1ULD 

<RDbUFR*=SR2*?SR4 



0365 

0052 
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0366 

0054 








000920 

0367 

0761 

01BC 




610F 

IONAK 


000921 

0369 

0F4A 

uOOE 




STk 

$R4»$b4,RANGE 


000922 

036d 

8960 

0393 




CMZ 

<GOFILL 

CHECK FOR INHIBIT OF 

000923 

03 66 

0960 

0391 




6 NL 

<RIOLDX 

READ-BUFFER PkELOAd 

000924 

0381- 

U 360 

0464 




LNJ 

$65 * <RDBFIL 

PRESET RD- 6 UFR W/ 33 *S {RNGEs$R4) 

000923 

0391 

OF 60 

0000 



RIOLDX 

b 

<RETURN 

EXIT 

000926 

000927 

0393 

0000 




GQF1LL 

* 

RtSv 

1*0 

RD-BFR PRELD-jW (0=FILU 

000926 






* 

IOLD FOR WHITE 


000929 






* 




000930 

0394 

AbOO 

U276 



wIOLD 

LDR 

$R2 * <WLOAD 


000931 

0396 

A644 

0010 




XOR 

$R2*$B4.PQRTCH 


00093*. 

039b 

F3C0 

U16L 




LNj 

$B7*SI0NAK 

PRESET NAK TIhEOUT 

000933 

039A 

6160 

1791 



WQLDb 

1060 

<WRTBFR * = $R2 *s$R4 



0390 

0052 









0390 

0054 








000934 

0390 

0781 

0 1C5 




61 OF 

IONAK 


000933 

03Au 

CF 44 

ooot 




STk 

$R4 *$64 # RANGE 


000936 

03 Ac 

8385 





JHP 

$65 


000937 






* 




00093b 






# 

WHITE 

TASK 


000939 






* 

(TASK* 

$R2* CHD=$R7) 


000940 


03 A3 




WRTA5K 

too 

$ 


000941 

03A3 

AbOO 

0277 




LDR 

$R2 * <WT ASK 


000942 

03 A 3 

A644 

0010 




XOk 

$R 2 *$B4.P0RTCn 


000943 

03A7 

F3C0 

01AF 




LNJ 

$B7 * S10NAK 

PRESET NAK TIhEOUT 

000944 

03A9 

605 7 





10 

= $R 7 *s$R2 

IO-CHD 


03Aa 

0052 








000943 

03Ab 

0 7b 1 

0168 




b I OF 

IONaK 


000946 

03 Au 

6365 





JHP 

$B5 


000947 


• 




* 




000946 






* 

WKlTt 

OFFSlT RANGE 


000949 






* 

($R7 = 

OFFSET) 


000930 






* 




000951 


03 At 




WTOFRG 

too 

$ 


000954 

03 At. 

AbOO 

0276 




LDk 

$R2*<WQFR6E 


000953 

03bu 

A644 

0010 




Xuk 

$R2 *$b4,P0RTCH 


000954 

0302 

F 3 CO 

01A4 




lnj 

$67♦SIONAK 

PRESET NAK TIhEOUT 

000953 

0364 

8057 





10 

= $R7 * = $R2 

10 offset RANgE 


0363 

0052 








000956 

03b6 

0761 

0 1 AO 




b 1 OF 

IONAK 


000957 

G3bb 

FF44 

GOOF 




STk 

$R7 * $B4,0F STRG 

SAVE RANGE-OFr-SET 

00093b 

036a 

6365 





JMP 

$65 


000959 






# 




000960 






# 

SutJSYuTtM INITIALIZE 


000961 






* 




000962 


0366 




INITZ 

too 

$ 


000963 

U3bb 

b F 00 

0566 




SAVt 

<5AVTIM,=Z*7F7F * 



03bo 

7F7F 








000964 

G36L 

6070 

8000 




10 

= Z •6000 **<WCTL 



03CU 

0000 

0274 







000963 

03C2 

0700 



T 


blOT 

> + $A 


000966 

0303 

0000 





HlT 


CONTROL-WD INITIALIZE NOT ACCEPTED 

000967 

0304 

U3CG 

U005 



$A 

lnj 

$65 * INSTUS 

STALL ON 1NPOi-STAjuS WHILE OLT FINISHES 

00096b 

0306 

8 Fb 0 

0566 




kSTH 

<SAvTIM,=Z*7F7F» 



0306 

7F7F 








000969 

03C9 

6365 





JHP 

$B5 


000970 






* 




000971 






* READ STATUS 


000972 






* 




000973 


03CA 




INSTU5 

tou 

$ 


000974 

030A 

A600 

025F 




LDk 

$R2 * <RSTOS 

STATUS CMD 

000973 

0300 

A644 

001 U 




XOR 

$R2 * $64 # PORTCH 

ADD PORT CHANNEL 

000976 

03CL 

6044 

0006 



$S 

10 

$B4.STATUS*-$R2 

10 REAP IN STATUS 


0300 

0052 








000977 

03D1 

07FD 





61 OF 

>-$6 


00097b 

0302 

6365 





JHP 

$B5 


000979 










000960 






* 

APPLND 

" (Y OR N) ?; •• AND 

ACCEPT EITHER "Y" Or ••OTHER" AS A RESPONSE. 

000981 






* 

RETURN 

WITH I(EGOAL) TRUE 

IF »»Y" AND FALSc OTHERWISE. $R 6 HAS THt INPUT. 

000962 






* 




000963 

0303 

9CD5 




VOR N 

LD 6 

$B1*?$B5 


000984 







CALL 

ZV$T.ZV$U*MSGYQR 



0304 

FBCO 

0003 








0306 

0380 

0000 


X 






0306 

GFbO 









0309 

0367 








000983 

030A 

6740 

0011 




Ct 

ansyor 

ERASE THE OLP RESPONSE 

000986 







CALL 

2V$1A*CNSTAT*ANSY0R 

ACCEPT ONE BYTE 


0300 

F 6 C 0 

0003 








03DL 

0360 

0000 


X 






03 tu 

OF60 









03ti 

0210 









03E2 

03tC 








0 0 0 9 8 7 

0313 

toco 

0008 




LDH 

$R 6 *ANSYOR 

and place in 1 he Right of *K 6 

00098b 

03L5 

6059 





CHV 

$R 6 ,~*Y* 

SET I(EQUAL) 

000989 

03t6 

6361 





JHP 

$bl 

AND RETURN 

000990 






* 




000991 

0 3 1 7 

2026 

5920 

6F72 


MSGYOR 

TEXT 

• (Y OR N) $ • 



03tA 

204E 

2924 







000992 

0300 

0000 




ANSYQR 

ktSV 

1*0 

PLACE TO INPUT INTO 

000993 










000994 






* 

applnd 

"HlT •carriage-return* when READY ?; " AND ACCEPT 

000495 






* 

ANY KEYSTROKE AS A RESPONSE TO GO OR 

000996 






* 




000997 

0360 

OF CO 

0011 



OPWAIT 

STb 

$B5,0PWAIS+1 

SAVE THE RETURN ADDRESS 

00099b 







CALL 

4 V$T.ZV$Q*HSRDY 

DISPLAY message and question MARK 


03EF 

FBCO 

0003 








03F1 

0360 

0000 


X 






03F3 

OF 60 









03F4 

0400 








000999 


turn 

A / i fl 1 




CALL 

ZV$iA*CNSTAT* RDBUFR 

accept any CHARACTER 


wpi? 

03F7 

r d^v 

0380 

0000 


X 






03 F 9 

0F60 









03FA 

0210 









03Fb 


0000 


X 




t. 

001000 

03FO 

03C0 

0039 




LHJ 

$B5 *2VCRLF 

ACKNOWLEDGE OPERATOR KEYSTROKE 

001001 

03F t 

8380 

0000 



0PWAI5 

JHP 

<RETURN 

RETURN TO THt CALLING CODE 

001002 






# 




001003 

0400 

2046 

4954 

2022 


MSRDY 

TtXT 

♦ HIT "CARRIAGE-RETURN" WHEN READY$• 


0403 

4341 

5252 

4941 








fl ^ 
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001004 

OOiOOS 

001006 

001007 


4745 2052 4554 
S>bt>2 4E22 2057 
484b 4E20 5245 
4144 5924 


001026 
00102 l 
00102b 
00 lu29 
001030 


001042 

001043 

001044 


001052 
001053 
001054 
00lu55 
001056 

001057 

00105b 

001059 

001060 
001061 
00106*: 
001063 
001064 
001065 

001066 

001067 

00106b 

001069 

001070 

001071 

001072 

001073 

001074 

001075 

001076 


0459 

0450 

045C 

045E 

0460 

0462 

0463 


0464 

0466 

046/ 

0469 

046b 

0460 

046F 

0470 


7F7F 


7F7F 

8385 


7F7F 


7F7F 

8385 


001086 
001087 
00 l08b 
001089 
001090 


CALL LIBRARY 2V$IA 
INPUTS INTO KtAD-OUFFER 


00100 b 

OhI 1 
0413 

bFOO 

7F7F 

0765 


2 V I A 

SAVE 

<CPSAVlf = 2 * 7F 7 F• 


001009 




$A 

CALL 

2 V$iA*CNSTAT*RDBUFR 

•SIXTY INPUT FRuM CQnSC 


04 14 

FBCO 

000 3 







04 1 6 

0380 

0000 

X 






041 b 

OF 80 








0419 
04 1A 

0210 

0000 

X 






0 41 ti 

02 AF 







001010 

041C 

8700 

0211 



CL 

<bYTSW 


001011 

041c 

5C3F 




LOV 

$R5*=X»3F» 

PRESET 

OOlOlL 

04 1 F 

OFOO 

0212 



STR 

$R5*<FCOMMA 

CQMMAwFLAG 

001013 

0421 

9800 

0210 



LOR 

$R1t<CNSTAT 
<STATCN.$R1 

GET TTY-STATU^ 

00 10 14 

0423 

8390 

042C 



UMP 


00 1 u 15 

0425 

9B8Q 

U1FF 


INVLD 

LAB 

$B1»<MSiNVD 

INVALID RESPONSE! 

001016 

04 27 

0380 

043B 



LNJ 

$B5 *<ZVTC 

PRINT 

00101 7 

0429 

OFEb 




b 

>-$A 


00101 b 

042A 

8380 

012E 


GNEXT 

JMP 

<NEXT 


001019 

042L 

OFF 9 


STATCN 

b 

> IN V L D 

CONSOLE STATUS ERROR 

001020 

0420 

OFFD 




b 

>GNtXT 

CONSOLE bRtAK-KEY 
RUBOUT 

001021 

042E 

OF E6 




b 

> —$ A 

001022 

042 F 

OF 80 


T 


b 

>*$C 

COMMA OETECTEu 

001023 

0430 

8700 

0212 



CL 

<FCOMMA 

CR 

001024 

0432 

8F80 

0765 


$C 

RSTR 

<CPSAVU = Z«7F7F» 



0434 

7 F 7 F 







001025 

0435 

8385 




JMP 

$B5 



CALL LIBRARY 2V$T#ZV$TC 
TO PRINT SOME TEXT 
... OF U 


(bl s ADDRESS 


TEXT) 


001031 

0436 

DF60 

0449 


ZVCRLF 

STB 

$65,<ZVTCEX*1 


001032 

0438 

9B80 

044A 



LAb 

SBlf<MSCRLF 


GO 1u33 

043a 

0F80 


T 


b 

> + $A 


001u34 

043b 

OF 80 

0449 


ZVTC 

S1 b 

$B5 • <ZVTCEX+1 
$6i•<MSZVTC 

STORE RETURN *N EXIT 

001035 

0430 

9F60 

0447 


$A 

ST b 

PUT TEXT IN CaLL 

001036 

04 3 F 

8980 

0826 



CMZ 

<PR TFLG 

CK ERROR-PRIM INHir 

001037 

0441 

0987 




bNE 

>ZVT CEX 

BCH IF YES 

001038 

0442 

FbCO 

0003 



CALL 

ZV$T *ZV$TC•MSNULL 



0444 

0380 

0000 

X 






Q44o 

OFBO 








0447 

0458 







001039 


044 7 



MSZVTC 

EUU 

$-$AF 


001040 

0448 

OFBO 

0000 


ZVTCEX 

b 

<RETURN 

EXIT 

001041 

044 A 

2024 



MSCRLF 

text 

* $» 



* PRINT 2 ASCII CHARACTERS * 

* PLUS A SPACE * 

— --- —-- 


001046 

044b 

OFCO 

OOOA 

VDTR 

STB 

$B5•VDTRX+1 

001047 

0440 

9F40 

0009 


STR 

$R1»VDTRA 

001048 

044F 

FBCO 

0003 


CALL 

ZV$ f»VDTRA 


0451 

0380 

0000 

X 




0453 

OFBO 






0454 

0457 





001049 

0455 

OFBO 

0000 

VDTRX 

b 

<R£TURN 

001050 

0457 

0000 


VDTRA 

RESV 

uo 

001051 

0458 

2024 


MSNULL 

TEXT 

» »,l$t 


STORE WHERE FkOM 


EXIT 


FILL WRTbFR W 
$R4 sRANGE TO 


/ $R7-VALUt * 
FILL (BYTES)* 


0765 


*—---- 

WRTFIL 

SAVE 

<CPSAV1»=Z , 7F7F* 

1791 

0471 

0765 



LAB 

LNJ 

RSTR 

SB 11<WRTBFR 

SB5 »<FILLIT 
<CPSAVl*=Z’7F7F* 




JMP 

$B5 



* FILLS READ 

* $R4 = RANGE 

* - ~ ■■ - 

BUFFER WITH 33 * S* 
TO FILL (BYTES)* 

0765 


RDbFIL 

SAVt 

<CPSAVl*=Z»7F/F* 

0000 

3333 

0471 

0765 

X 


LAb 

LOR 

LNJ 

RSTR 

$61*<RDBUFR 

SR7,-X»3333* 

$B5* <FILLIT 
< C P S A V l»=Z , 7F7F* 




JMP 

$B5 


* FILL A BUFFER W7 $R7 DATA* 

* $bl S buffer address 

* $R4 = RANGE IN BYTES 


001077 

0471 

8 F00 

0773 

FILUT 

SAVE 

’<CPSAV2*=Z»7F7F» 


0473 

7F7F 





001078 

0474 

8751 



CL 

= $R 1 

001079 

0475 

C370 

0002 


OIV 

$R4»5X»0002« 

OCilOBO 

0477 

8 A04 



INC 

= $R4 

001081 

0478 

F F 50 


$A 

STR 

$R7 »$B1•♦$Rl 

001082 

04 79 

9954 



CMR 

$Ri *s$R4 

001083 

047 A 

03FE 



bLE 

RSTR 

>-$A 

001084 

047b 

8 F8G 

0773 


<CPSAV2*=2»7F7F* 


0470 

7F7F 





001085 

047E 

8385 



JMP 

$B5 


BYTES/WORDS 


FILL A BUFFER WITH BYTES * 

of incrementing data * 

$61 = BUFFER TO BE FILLED 
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001091 

001094 

001093 

Q01U94 

001095? 

001096 
001097 
001096 
001099 
001100 
oouoi 
001102 
001103 
001104 
001 105? 
001106 
001107 
001106 

001109 

001110 

001111 

001112 

001113 

001114 

001115? 

001116 

001117 

001116 

001119 

001120 

001121 

001124 

001123 

001124 

001125 

001126 

001127 

001126 

001129 

001130 

001131 

001132 

001133 

001134 

001135 

001136 

001137 

001136 

001139 

001140 

001141 

001142 

001143 

001144 

001145 

001146 

001147 

001146 

001149 

00U50 

001151 

001152 

001153 

001154 

001155 

001156 

001157 

001156 

001159 

001160 

001161 

001162 

001163 

001164 

001165 

001166 

001167 

001166 

001169 

001170 

001171 

001172 

001173 

001174 

001175 

001176 

001177 

001176 

001179 

001180 

001181 

001182 

001183 

001184 

001185 

001166 

001167 


* $R4 = RANGE IN BYTES 

* SR7 = STARTING DATA-BYTES 

* $R7 IS PREEGADtD BY THE TE 



6F00 



# A 

STARTING 

VALUE BYTE X Al 

047F 

0773 


INCBFR SAVE 

<CP3AV2,=2»7F7F» 

0461 

7F7F 






0462 

C370 

0002 



DIV 

$R4* = X •0002 * 

0464 

FF71 



SA 

STR 

SR7**SBl 

0465 

FA70 

0202 



ADD 

SR7,5X»0202« 

0467 

0660 


T 


bCF 

>♦$6 

0466 

89D7 




CM2 

= $RY 

0469 

0960 


1 


BNE 

>♦$6 

046 A 

F870 

FFOO 



EDR 

SR7 %* FFOO• 

046C 

OFFB 


T 


B 

>*$C 

0h8D 

F 970 

0101 


SB 

CMR 

$R7*sX»0I0i* 

046 F 

09 F D 


T 


BNE 

>♦$0 

0490 

F870 

0001 



EDR 

SR7* =sX * 0001 • 

0492 

4772 



SC 

bDEC 

SR4 »>-$A 

0493 

6F80 

0773 



RSTR 

<CPSAV2f=2*7F7F» 

0495 

7F7F 






0496 

6385 




JMP 

SB5 





* 

MOVE 

A BUFFER * 


04 97 
0499 
049A 
049d 
049C 
0490 
049 6 
G4A0 
04A1 


6F00 0773 

7F7F 

8 8D4 

F871 

FF72 

4776 

8F60 0773 
7 F 7 F 
6385 


X+l 


BYTES —> WORoS 


$bl s INPUT BUFFER 
T PUT - 


* 

* SB2 s OUTPUT BUFFER 

* SR4 s RANGE IN WORDS 
MOVEWD SAVE <CPSAV2*7F7F• 

DEC =$R4 

SA LDR $R7* + SB1 

STR $R7f*$62 

BDEC $R4 * >-$A 
RSTR <CPgAV2*=2 , 7F7F« 


JMP SB5 

Torh"cunfiguration~w5rds" 


CONFIGURATION WORDS ARE FORMED FROM; 
SB4.PLATEK 
SB4.CYEN0 
SB4*TRKN0 
SB4.SECTR 

NOTE THAT SB4 IS PORT-NO 


04A2 

8F40 

0019 

FCWD SAVE 

CNFuSV » = 2 *7F7F• 

04A4 

7F7F 








* CONFIGURATION WORD A 

Oh A5 

B844 

0001 

LDR 

SR3iSB4-CYLNQ 

04A f 

3065 


DUE 

SR3 


OhA6 

A644 

0004 

EDR 

$R2*SB4.PLATER 

04 AA 

30C5 


DOR 

SR3*5 


04 Ab 

BF44 

OOOC 

STR 

SR3»SB4*WCWA 

04 AD 

U3C0 

0005 

LNJ 

$B3tFCWDB 

04 AF 

8FC0 

OOOC 

RSTR 

CNFoSV•=2 , 7F7F* 

04B1 

7F7F 





04b2 

8385 


JMP 

SB5 





* CONFIGURATION WORD B 

0463 

B844 

0003 

FCwDB EDR 

SR3 »$B4*SECTR 

04b5 

3006 


SOL 

SR3 * 8 


04Bo 

A844 

0002 

EDR 

SR2»$B4» TRKNQ 

04b6 

30C6 


DOR 

SR3 » 6 


04B9 

BF44 

GOOD 

STR 

SR3 »$B4•WCWB 

04BB 

6363 


JMP 

SB3 


04bC 

0000 


CNFGSV RESv 

7#$aF + 7«0 




* WRITE 

CONFIGURATION wORDS 


04CA 


WRTCWD EuU 

’ s 


04CA 

6F40 

FFF1 

Save 

CNFgSVi=2'7F7F* 

04CC 

?F7F 





04CD 

A800 

027C 

LDR 

$R2♦<WCNFGA 

04CF 

A644 

0010 

XOR 

SR2 *SB4 # P0RTC4 

04D1 

F3C0 

0085 

ENJ 

SB7 »SIONAK 

04D3 

6044 

OOOC 

10 

$B4*WCWA*=$R2 

04D5 

0052 





04D6 

0761 

008D 

B1 OF 

IONaK 


04D8 

2E02 


adv 

SR2»=> 

v 1 02 * 

04D9 

6044 

GOOD 

10 

SB4•WCWB«-SR2 

04DB 

0052 





04DC 

0761 

0087 

BI OF 

IONAK 


04DE 

6FC0 

Jr FDD 

RSTR 

CNFgSV * = Z * 7F7F • 

04E0 

"7F7F 





04E1 

6365 


JMP 

$B5 





* READ 

identification CODE 


04E2 


GET ID EUU 

S 


04E2 

A800 

0266 

LDR 

SR2*<RDIDNT 

04EH 

A644 

0010 

XOR 

$R2,SB4.PUKTCH 

GhEo 

F3C0 

0070 

LNJ 

SB7 »SIONAK 

04E6 

8057 


10 

=$R/,=SR2 

04 E9 

0052 





04EA 

0761 

0079 

bIQF 

IONaK 


04tC 

875t? 


CL 

= SRo 


04ED 

F3C0 

02 FC 

LNJ 

SB7 * IODELY 

04EF 

7066 


DOL 

SR7 ♦ 8 


04FU 

7046 


SoR 

SR7 * 8 


04 F1 

FF44 

OOOA 

STR 

SR7,SB4.DISC1D 

04F3 

6365 


JMP 

Sb5 





* Callus identi 

FKATIONi CODE 




* 2330 - 

100 IP] 

* NO FIXED DI 




* 2331 - 

100 fP] 

* WITH FIXED 1 




* 2332 - 

200 IP] 

« NO FIXED DI 




* 2333 - 

200 TPI* WITH FIXED i 








EXIT 


PR|Sf V AK TIMEOUT 


WR 


WORD-A 


WRITE WUKD-B 


PRESET NAK TIMEOUT 
READ I.D. 


DELAY 


SET PARAMETERS TO LIMITS 


001188 

04F4 

6F00 

0773 

SETPRM SAVE 

<CPbAV2,=Z»7F7F • 


04F6 

7F7F 


001189 

04F 7 

8756 


CL 

*SR6 

001190 

04F 6 

8757 


CL 

= SRY 

001191 

04F9 

6D44 

0001 

SOI 

SB4.CYLN0 


CLEAR CYL ♦ TkK 



X 

V,y 
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001194 

04F b 

8044 

0003 

SDI 

$B4#SECTR 

CLEAR SECTOR ♦ PLAtfR 

001193 

04FD 

8044 

0005 

SDI 

$B4.MINCYL 

CLEAR MIN-CYL ♦ MIn-TRK 

001194 

04 FF 

0844 

OOOA 

LDR 

$R5t$B4.DISClD 

GET I•D« 

f , 00119b 

0501 

4C01 


toy 

$R4 1 


f 001196 

050* 

CF44 

0008 

51K 

$R4 t$B4«MAXTR4 


m 001197 

0504 

4C17 


LDV 

$R4*sX«17* 

23 SECTOR 

00119b 

0505 

CF44 

0011 

STR 

$R4*$B4.$CTRMX 


001199 

0507 

5032 


CMV 

$R5 * = X•32• 


001*00 

050b 

020u 

T 

6L 

> + $A 

BCH IF 100TPI 

001*01 

0509 

1870 

0197 

LOR 

$R4f-X'0197 • 

407-CYL 

001*02 

050b 

OFbO 

T 

6 

>*$F 


001*03 

0501 

C870 

OOCb 

$A LOR 

$R4«*X*00Cb' 

203-CYL 

001204 




* 



001*05 

050t 

CF 44 

0007 

$F STR 

SR4 * $B4* MAXCY L 


001206 

0510 

8F 80 

0773 

RSTR 

<CPSAV2t=Z'7F7F' 



0512 

7 F 7 F 





001*07 

0513 

83b5 


JMP 

$B5 

EXIT 

001*06 







001*09 




* SET PARAMtTLRS * 


001210 




* TO MINI MUM 

LIMITS* 


001*11 




*—---- 



001*1* 


0514 


LDPARM tOU 

$ 


Oukb 

0514 

0b44 

0006 

LOR 

$R5 *$64 # MINTR< 


001214 

0516 

OF 44 

0002 

STR 

$R5 *$64*TRKNG 


001*15 

0518 

0844 

0005 

LOR 

$R5 $$b4,MINCYL 


OOklo 

051A 

OF 44 

0001 

STR 

$R5 »$64«CYLNG 


00 1 <41 7 

0511 

8744 

0003 

CL 

$64.SECTR 


001*16 

Obit 

83b5 


JMP 

$B5 


001219 




*--- 



001220 




* FILL 

OUTPUT BUFFLR FOR FORMAT * 

001221 




- 



001222 

0 5 1 F 

8F40 

00 ID 

LDWBFR SAVE 

0BSAVE*=Z'7F7F' 



0 521 

7F7F 





001223 

0522 

9660 

1791 

LAB 

$61*<toRTBFR 


GO 1 24 

0524 

6744 

0003 

CL 

$B4.SECTR 


0 Ol<:2b 

052o 

C844 

OOOC 

LOR 

$R4*$B4« WCWA 


001*26 

052b 

OFbO 

T 

b 

>*$A 


001*27 

0529 

8AC4 

0003 

NXSCTk INC 

$B4•SLCT R 


00122b 

052b 

b360 

04b3 

$A LNJ 

$B3 * <FCWDb 


001*29 

052u 

CF71 


STR 

$R4 * + $61 


001230 

0521 

BF 7 1 


STR 

$R3*+$61 


001231 

052 F 

0844 

0003 

LOR 

$R5*$b4.SECTR 


0QU34 

0531 

0944 

oou 

CMR 

$R5 *$B4*SCTRMX 


001233 

0533 

0201 

FFF5 

bL 

NXSCTR 


001234 

0535 

8744 

0003 

CL 

$B4.SECTR 


00123b 

0537 

B360 

0463 

LNJ 

$63 *<FCwDB 


001236 

0539 

6FC0 

0003 

RSTR 

0BSAVE»52»7F7F« 



053b 

7F7F 





001237 

053C 

8385 


JMP 

$65 


0014 3b 

0530 

0000 


06SAVL RLSV 

7*$AF*7*0 


001239 




* ****************************** 

ERROR ROUTINES ********** * 

001240 




* ..... 



001241 




* CHECK FOR ERRORS * 


001242 




* AFTLR FUNCTIONAL TLST * 


001243 







<# 0012 44 


054b 


CKLRR LOU 

$ 


■ Go 124b 

054t> 

uFbO 

0556 

STb 

$bS*<CKERRX*l 

STOKE toHtRE FkOM In EXIT 

1 00U46 

0540 

0380 

0585 

LNJ 

$B5 * <CKSTUS 

CHECK TIMEOUT 6 STATUS 

* 001247 

054F 

0360 

06DF 

LNJ 

$85 * <CKRNGE 

CHECK LND-RANgE 

00124b 

0551 

0360 

0705 

LNJ 

$65 * <CKOFRG 

check-end offset-range 

001249 

0553 

03bO 

0723 

LNJ 

$B5»<CKCWD 

CHECK CONFG-WbS 

001250 

0555 

OF 80 

0000 

CKtKRX b 

<RET URN 

EXIT 

001251 







001252 




* 10 NAK *EO SUBROUTINE * 


001253 




- 



001254 




* A LNJ THRO 

$b7 IS KfcU•0 PRIOR 

TO EVERY 10 CMD 

001255 


0557 


SIONAK LOO 

$ 


001256 

0557 

6F40 

00 IF 

SAVE 

NAKSAV »= 2'7F7F • 



0559 

7F7F 





001257 

055 a 

FF80 

U570 

STb 

$67 *<NAKEXT♦ I 

SAVE iO-ADDREsS FOR RETRY 

GO 1 £ 5b 

0550 

t870 

FFFF 

LOR 

$R6i=2 * FFFF * 

NO OF RETRY'S ALLOWED 

001*59 

055t 

tF 00 

0571 

SfK 

$R6 *<NAKFLG 

SET COUNTER 

001260 

0560 

8 F10 

0016 

RSTR 

NAKSAV * =2'7F7F * 



0562 

7F7F 





001261 

0563 

6387 


jhP 

$67 

RETURN 

001*6* 




* 



. 001*63 

0564 

6880 

0571 

10NAK OtC 

<NAkFLG 

DOWN COUNT NAk'S 

001*64 

056y 

8980 

0571 

CMZ 

<NAkFLG 

MAX NO OF NAK'S? 

001265 

056o 

0987 


bNE 

>NAKtXT 

RETRY 

001*66 

0569 

9B60 

0572 

LAB 

$61*<MSIONK 


001*67 

056b 

0380 

0436 

LNJ 

$B5,<ZVTC 

PRINT NAK 

00126b 

0560 

OFbO 

0850 

b 

<LRkOR 


00 1*6*9 

T)5oF 

OF SO 

O000 

NAXEXT 6 

2RETURN 

RETRY 

001270 

0571 

0000 


NAKFLG KtSV 

ItO 


001*71 

057* 

494 F 

2D4£ 4146 

MSIONK TLXT 

•10-NAKtP $' 



05 75 

4544 

2024 . 




001*72 

0577 

0000 


NAkSAV RLSV 

7*$AF+7*0 


001*73 




*—----— 



001*74 




* CHECK 

STATUS AND * 


001*75 




* Tint- 

OUT SUbROUTINE * 


001*76 




*-....-* 



001277 


0585 


CKSTUS tUU 

$ 


00127b 

0585 

8F00 

0566 

SAVE 

<SA v TIM,sZ»7F7F« 



05b 7 

7F7F 





001279 

0588 

8755 


CL 

= $R5 


00 12 bu 

0589 

8756 


CL 

-$Kb 


001281 

G5bA 

8757 


CL 

= $R / 


001282 

056b 

A800 

025F 

LOR 

$R2, <RSTUS 


001283 

0580 

A644 

0010 

XOR 

$R2 *$B4.PORTCR 


001*84 

056F 

8044 

000b 

RDSTUS 10 

$B4#STATUS»=$R2 

READ STATUS 


0591 

0052 





001285 

059* 

0700 

T 

BIOT 

> ♦ $A 


001*86 

0593 

8 A07 


INC 

= $R7 


001287 

0594 

F900 

0516 

CMR 

$R7,<TIME1 


00128b 

0596 

0981 

FFFb 

bnl 

RDSTUS 


001*89 

059b 

8 A06 


INC 

= $R6 


001*90 

0599 

1900 

05C5 

CMR 

$R6♦<TIME2 


001291 

059b 

0981 

FFF3 

BNL 

RDSTUS 


1 001*9* 

0590 

6AD5 


INC 

J=$R5 


I 001293 

059t 

0900 

05C4 

CMR 

$R5 $ <TIME3 


001*94 

05AO 

0961 

FFEt 

bNL 

RDSTUS 


001*95 

05A* 

6640 

0024 

CPl 

TIMOUT 


001*96 

0 5A4 

9660 

05CA 

LAB 

$61»<MSTIMR 
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Ou1297 

G5A6 

0380 

0436 



lnj 

SB5 ,<2VTC 

PRINT TIMED-OUT 


00129a 

Q5A6 

0F80 



T 

6 

> + Sb 



001299 

0 5 A9 

C800 

05C9 



$A LOR 

SR4 , <SBSTUS 



00i300 

05 Ab 

C944 

UOOB 



CMR 

$R4,$B4 # STATUS 



001301 

05A0 

097b 



T 

66 

>♦$6 



001302 

05AL 

8600 

05C8 



CPL 

<STATER 


{ K.J J 

001303 

05bO 

0380 

05D0 



LNJ 

$B5 »<STSDMP 

DUMP ERRORS 

001304 

03b2 

8F80 

05B6 



SB RSTR 

< S A y T 1M , = Z • 7 F 7 F * 




05b4 

7F7F 








001303 

05b3 

8385 




JtfP 

$05 



001306 

05b6 

0000 




SAVT1M KLSv 

7*$AF+7 ,0 



001307 

05C4 

0000 




T1H63 DC 

=2*0000• 



oolaoa 

O 3 C 3 

0100 




TIML2 DC 

=2*0100* 



001309 

03C6 

0000 




TIMtl OC 

=Z*OOQO» 



001310 

03C7 

0000 




TIMQUT R6SV 

1,0 



001311 

05C8 

0000 




STATER RLSV 

1,0 

STATUS ERROR 


001312 

05C9 

8000 




SbSTUS OC 

=2 * aOOO• 

SHOULO-BE STATUS 


001313 

03CA 

494F 

2054 

4940 


MSTIMR TEXT 

*IG-TIME-OUTS * 




05CD 

4520 

4F55 

5424 






001314 






- 




001313 






* ROUTINE 

TO DUMP IF STATuS IS 

MISCOMPAREO * 


00 13 16 










001317 

0500 

8F00 

064b 



STSOMP SAVE 

<STSTB5,=2*7F7F* 




05D2 

7F7F 








00131b 

0503 

F 844 

000b 



LOR 

SR7*Sb4,STATUS 

get status-word 


001319 

0503 

9B80 

0659 



LAB 

SB 1,<MSSTER 



001320 

0307 

0380 

043b 



LNJ 

$B5 * <2VTC 

CALL ZVsTC 


001321 

0509 

0380 

0648 



LNJ 

$B5 *<STSFiFT 



001322 

050b 

6980 



T 

6NE2 

$R6,>*$8 



001323 

050C 

9B80 

0663 



LAB 

SBi,<M5NDEV 

NQ DEVICE 


001324 

0506 

0380 

043b 



LNJ 

SB5,<2VTC 

CALL 2V$1C 


001323 

0360 

0360 

0648 



SB LNJ 

$B5,<ST SHFT 



001326 

05L2 

6900 



r 

BL2 

$R6,>+$C 



001327 

05t3 

.9060 

066 A 



LAB 

$01,<MSSATN 

ATTENTION SLT 


00132a 

Q5L5 

0380 

043b 



LNJ 

SB5,<2VT C 

CALL 2V$TC 


001329 

03E7 

0360 

0648 



SC LNJ 

$05 * <STSHFT 



001330 

05E9 

6900 



T 

bLZ 

$R6 , > ■* SO 



001331 

03EA 

9b8G 

066F 



LAB 

$B1,<MSOVUN 

OVLR-UNDLR RUr, 


001332 

05LC 

0360 

043b 



LNJ 

$B5*<2VTC 

CALL ZVSTC 


001333 

05tt 

0380 

0648 



SO LNJ 

$B5,<ST SHFT 



001334 

0 5F0 

6900 



T 

bLZ 

$R6,>♦$6 



001333 

05F1 

9b60 

0677 



LAb 

$Bl,<MSWRPT 

WRITE PROTECT 


001336 

05F3 

0380 

043b 



LNJ 

$65,<2VTC 

CALL 2V$TC 


001337 

05F 5 

0380 

0648 



SL LNJ 

$B5,<ST SHFT 



Oo 1336 

05F7 

6900 



T 

662 

$R6 * > + $F 



001339 

05Fa 

9b80 

0670 



LAB 

$01,<MSROLR 

READ ERROR 


001340 

0 5 F A 

0380 

043b 



LNJ 

$B5, <2VTC 

CALL 2V$TC 


001341 

05FC 

0380 

0648 



SF LNJ 

$B5,<STSHFT 



001344 

05FL 

6900 



r 

6L2 

$R6, > + $G 



0U1343 

05 FF 

9B80 

0681 



LAB 

$B1,<MSILSK 

illegal seek 


001344 

0601 

0380 

043b 



LNJ 

$B5,<2VTC 

CALL ZVsTC 


001343 

0603 

0380 

0648 



SO LNJ 

$B5,<ST SHFT 



001346 

0603 

6900 



T 

6L2 

$R6, > + $H 



001347 

OaOo 

9680 

0688 



LAb 

$B1,<MSSYNC 

MISSED DATA SYNC 


00134a 

060a 

0380 

043b 



LNJ 

$B5,<2VT C 

CALL ZVSTC 


001349 

060A 

0380 

0648 



$H LNJ 

$B5,<STSFiFT 


,#' x 

001330 

060C 

6900 



r 

6L2 

$R6 »>«-$J 



001331 

0600 

9680 

0691 



LAB 

$B1,<MSSCHi 

unsuccessful search 


001332 

OoOF 

0380 

0436 



LNJ 

$B5,<2VT C 

CALL ZVSTC 


001333 

0611 

0380 

0648 



$J LNJ 

SB5,<STSHFT 



001334 

06 13 

6900 



T 

BL2 

$R6,>+SK 



001353 

0614 

9680 

0696 



LAB 

$61,<MSNCLK 

MISSING CLOCK PuLSe 


001356 

0616 

0380 

0436 



LNJ 

$B5,<2VTC 

CALL ZVsTC 


001357 

0618 

0 380 

0648 



SK LNJ 

$B5,<STSHFT 



00135a 

06 1A 

6900 



T 

BL2 

$R6 , > + $L 



001359 

061b 

9680 

06A5 



LAb 

$B1,<MSNSTR 

MIS51N0 SECTOR PULSF 


001360 

0610 

0380 

0436 



LNJ 

$B5,<ZVTC 

CALL ZVSTC 


001361 

06 IF 

0380 

0648 



SL LNJ 

$B5,<STSHFT 



001362 

0621 

6900 



T 

bt2 

$R6»> + $M 



001363 

0622 

9880 

0660 



LAb 

SBI,<MSSkLK 

SEEK tKROR 


001364 

0624 

0380 

0436 



LNJ 

$B5,<ZVT C 

CALL ZVsTC 


001365 

0626 

0380 

0648 



$M LNJ 

$B5,<ST SHFT 



001366 

0628 

0380 

0648 



LNJ 

$B5,<STSHFT 

RFU 


001367 

062A 

6900 



T 

bLZ 

$R6,>♦$N 



001366 

062b 

9B80 

0665 



LAB 

$Bl,<HSCMER 

corrected MEMORY error 


001369 

0620 

0380 

0436 



LNJ 

$65,<2V T C 

CALL ZVSTC 


001370 

062 F 

0380 

0648 



SN LNJ 

$B5, <STSFiF T 



001371 

0631 

6900 



T 

6L2 

$R6*>+$P 



001372 

0632 

9680 

06C1 



LAb 

$bl,<MSNLXR 

N0N-EX1STANT RESOURCE 


001373 

0634 

0380 

0436 



LNJ 

$05,<2VT C 

CALL ZVSTC 


001374 

0636 

0380 

0648 



SP LNJ 

$B5,<STShFT 



001373 

0638 

6900 



r 

bt l 

$R6 , > + $U 



001376 

0639 

9680 

06CC 



LAb 

$Bi,<M50PT Y 

BUS PARITY 


001377 

063b 

0380 

0436 



LNJ 

$B5,<ZVTC 

CALL ZVsTC 


001376 

0630 

0380 

0648 



SO LNJ 

$B5,<STSHFT 



001379 

06 3F 

6900 



T 

BL2 

$R6,>+SR 



001380 

064U 

9b80 

06D2 



LAB 

$B1,<MSUCMR 

UNCQRRtCTED McMQRY ERROR 


001381 

0642 

0380 

043b 



LNJ 

$B5,<2VTC 

CALL ZV$TC 


001382 

0644 

8F80 

0646 



SR RSTR 

<STSTB5,=2*7F7F* 




064b 

7F7F 








001383 

0647 

8385 




JMP 

$B5 



001384 

0648 

8756 




STSHFT CL 

= $Ro 



001385 

0649 

7081 




DUL 

$R7,1 



001386 

064A 

8385 




JMP 

$B5 



001387 

064d 

0000 




STSTb5 KESV 

7*$AF*7,0 



001388 

0659 

0753 

5441 

5455 


MSSTLR TEXT 

2*07*,'STATUS-MISCQMPARLD$ * 



Ob5C 

5320 

4049 

5343 








4F40 

5041 

5245 








4424 








001389 

0663 

4445 

5620 

464F 


MSNOLV TEXT 

•OLV NOT RLADYS* 




0666 

5420 

5245 

4144 








5924 








001390 

Ob6A 

4154 

5446 

2053 


MSSATN TEXT 

• ATTN SET $• 




0660 

4554 

2400 







001391 

066F 

4F56 

4552 

2055 


MSOVUN TEXT 

•OVtR-UNOLR RJN$* 




0672 

4E44 

4552 

2052 








554t 

2400 







001392 

06 77 

5752 

5420 

5052 


MSWRPT TEXT 

* WR1-PROTECT $• 




Q67A 

4F54 

4543 

5424 





m 

001393 

0670 

5244 

2045 

5252 


MSROER TEXT 

*RD-ERR$* 


m 


0680 

2400 








001394 

0681 

494C 

4C45 

4741 


MSIL5K TEXT 

•ILLEGAL SEEKS* 




0684 

4C20 

5345 

454b 












I ITLt CUUSl.'KtV 7' 


PA6fc 15 




2400 







001395 

0686 

4049 

3353 

4544 


MSSYNC TLXT 

•MIsSED DATA SYNCS* 



06 bb 

2044 

41 5 A 

4120 







5339 

4643 

2400 





0UU96 

0691 

354t 

5355 

4 34 5 


MSSChl TtXT 

•UNSUCESSFUL SEARCHS* 


0694 

5333 

4653 

4C20 







3 345 

4152 

4348 







2400 







001397 

069d 

4049 

3353 

4946 


MSNCLK 16X1 

•MISSING CLOCK PULSES* 


U69L 

4720 

434C 

4F43 







4620 

5055 

4C53 







4524 







U 013 9 6 

06 A3 

4049 

5353 

4946 


MSNSTR TEXT 

•MloSING StCTJR PULSES* 


OoAb 

4720 

5345 

4354 







4F52 

2050 

554C 







5345 

2400 






0U1399 

0660 

5345 

4546 

2045 


MSSKEN Tc.XT 

•SElk-ERRS* 



06d3 

5252 

2400 






00140U 

06b3 

4 34 F 

5252 

4543 


MSCMER TEXT 

•COkRECTEO memory errors* 


06 db 

5445 

4420 

4D45 







4D4F 

5259 

2045 







5252 

4F52 

2400 





001401 

ObCi 

4L4F 

462D 

4558 


MSNEXR TtXl 

•NON-tXiSTANT RESOURSES* 


06C4 

4953 

544 1 

4654 







2052 

4553 

4F55 







5253 

4524 






OOU02 

06CC 

4255 

5320 

5041 


MSBPTY TtXT 

» BUs-PARIT YS• 



ObCF 

5249 

3459 

2400 





001403 

0604 

554t 

434F 

5252 


MSUCMR TtXT 

«UNCORRtCTED MEMORY 

ERRORS* 


0b05 

4543 

5445 

4420 







404 5 

4D4F 

5259 







2045 

5252 

4F52 







c400 







001404 









001405 






* READ KANut ANO CK = 00 * 


001406 






#-.....—.. 



001407 


060F 




CKkNGE EuU 

S 


00140b 

06 DF 

bFGG 

0773 



Save 

<CPsAV2,=Z»7F7F* 



06tl 

7F7F 







001409 

06 L2 

A800 

0259 



lor 

SR2»<KRANGE 


001410 

06t4 

A644 

0010 



XOR 

sR2,Sb4.P0RTCH 


001411 

Obto 

F3C0 

F670 



LNJ 

SB7 * SIONAK 

PRESET NAK TIMEOUT 

001412 

06 tb 

8057 




10 

= $R 1 SR2 

READ RANGE 


06L9 

0052 







001413 

06 LM 

0781 

FE79 



610F 

I ONAK 


001414 

06 EC 

F3C0 

00 FD 



LNJ 

SB7,10DELY 

DELAY 

001413 

06 tt 

F900 

06FC 



CMR 

SR7,<RNGLFT 


001416 

06 FO 

0900 



T 

66 

> + $d 


001417 

06 F 1 

8600 

06F6 



CPL 

<RNbtRR 

SET RANGE ERROR FLAG 

00141b 

OoF 3 

9680 

0700 



LA6 

SBlt<MSRNGR 


001419 

06F5 

0380 

0436 



LNJ 

Sb5»<ZVTC 

PRINT ERR 

001420 

06 F 7 

8F80 

0773 



SB RSTR 

<CPSAV2*=Z f 7F7F* 



06F9 

7F7F 







001421 

06FA 

8385 




JMP 

$65 


001422 

06Fb 

0000 




kNGERR RtSV 

1*0 


001423 

06FC 

0000 




RNGLFT RtSV 

1*0 

REMAINING RANgE 

001424 

06 F 0 

4 F 46 

5345 

5420 


MSOFRk T EXT 

»OFSET • 


001423 

0700 

5241 

4647 

4520 


MSRNGR TtXT 

•RANGE ERRS* 



0703 

4552 

5224 






001426 






*-......-- 



001427 






* read offset-Range and * 


00142b 






* CHECK = 

0000 x 


001429 






#-...- 



001430 

0705 

8F0U 

0773 



CKGFRG SAVE 

<CPSAV2*=Z*7F7F* 



0707 

7F7F 







Ou1431 

07Gb 

A800 

025A 



LOR 

sR2 * <RQFRGE 


00143c 

070A 

A644 

0010 



XOR 

SR2,S64.P0RTCH 


001433 

070C 

F3C0 

F64A 



LNJ 

$67,SIONAK 

PRESET NAK TIMEOUT 

001434 

070t 

8057 




10 

=$R7,=SR2 

READ OFFSET RANGE 


070F 

0052 







001433 

0710 

0781 

F633 



blOF 

IONaK 


001436 

0714 

F3C0 

00D7 



LNJ 

$B7,IODELY 

DELAY 

001437 

0714 

F900 

0722 



CMR 

$R7 »<QFKLFT 


00143b 

0716 

0900 



T 

66 

> + Sb 


001439 

0717 

8600 

0721 



CPL 

<OFkGER 

set offset range error flag 

001440 

0719 

9680 

06 F 0 



LAb 

SB1 * <MSOFRR 


001441 

071b 

0380 

043b 



LNJ 

sB5 t<ZVTC 

PRINT ERR 

001442 

0710 

8 FbO 

0773 



SB RSTR 

<CPSAV2 »»Z•7F 7F* 



07 IF 

7F7F 







001443 

0720 

8385 




JMP 

SB5 


001444 

0721 

0000 




OFRGER RtSV 

1.0 

OFFSET-RANGE dRROR FLAG 

001445 

0722 

UOOO 




OFRLFT KtSv 

1*0 

REMAINING RANgE 

001446 






#....-....... 



001447 






x READ CONFG-WDS ♦ CK * 


001448 






*............. 



001449 


0723 




ckcwd Euu 

$ 


001450 

0723 

8F00 

0773 



SAVE 

<CPSAV2»=Z*7F7F* 



0725 

7F7F 







001451 

0726 

A800 

0256 



LOR 

$R2i<RCNFGA 


001452 

0728 

A644 

0010 



XOR 

$R2 * $B4 # PQRTCH 


001453 

072 A 

F3C0 

F62C 



LNJ 

$B7 * SIONAK 

PRESET NAK TIMEOUT 

001454 

072C 

8056 




10 

=SR6,=SR2 

READ CUNFG WD A 


0720 

0052 







001455 

0721 

0761 

F635 



BI OF 

IONAK 


001456 

07 30 

F3C0 

0069 



LNJ 

$B7,IODELY 

DELAY 

001457 

0732 

6900 

0760 



CMR 

$R6 * <CWAF 


001458 

0734 

0900 



T 

bt 

> + Sb 


001459 

0733 

8 A8G 

0764 



INC 

<CWUERR 


001460 

0737 

A800 

025C 



SB LOR 

$R2 * <RCNFGB 


001461 

0739 

A644 

0010 



XOR 

$R2 »$B4# PORTCH 


001462 

073b 

8057 




SC 10 

= $R 7 * = SR2 

READ CONFG \nV B 


0730 

0052 







001463 

0730 

0781 

F626 



61 OF 

IONaK 


001464 

073F 

F3CQ 

OOAA 



LNJ 

$67,IODELY 

DELAY 

001463 

0741 

F90Q 

0761 



CMR 

$R7,<CWBF 


001466 

0743 

0900 



T 

BE 

>♦$0 


001467 

0744 

8A80 

0764 



INC 

<CWoERR 


00146b 

0746 

8980 

0764 



$D CMZ 

<CWOERR 


001469 

074b 

8000 

0762 



SOI 

<MSCWDA 

SAVE CNFG-WDS 

001470 

074A 

0900 



T 

BE 

> + $t 


00i471 

074b 

9B80 

0753 



LAB 

$61*<MSCwDR 


001472 

0740 

0380 

0436 



LNJ 

$B5*<ZVTC 


001473 

074F 

8 F80 

0773 



$t RSTR 

<CPSAV2,*Z*7F?F* 










TITLE CDUS1*•REV 7* 


PAGE 16 



0751 

7 F 7 F 



001474 

0762 

8385 



001475 

0763 

434F 

4E46 

472D 


0766 

5744 

5320 

4D49 


0769 

5343 

4F4D 

5041 



5245 

4421 

ODOA 

U01476 

075F 

0724 



001477 

0760 

0000 



001478 

0761 

0000 



001479 

0762 

0000 



001480 

0764 

0000 



001481 





001482 





001483 





001484 





001486 





001486 





001487 

0766 

0000 



001488 

0773 

0000 



001489 

0781 

0000 



001490 

076C 

0000 



001491 

0783 

0000 



001492 





001493 





001494 





00149b 





001496 

0784 

8F00 

0765 



0786 

7F7F 



001497 

0787 

0F88 



0 0 1«+ 9 8 

0788 

8F00 

0765 



078 A 

7F7F 



001499 

078B 

AB80 

0000 


OOlbOO 

078D 

8700 

0782 


OOlbOl 


078F 



001b02 

0 7 8 F 

C844 

OOOE 


001b03 

0791 

88D4 



001b04 

0 79c 

8700 

0781 


00160b 


0794 



OOlbOb 

0794 

8A80 

0782 


001 b07 

0796 

8980 

0781 


001608 

0798 

0960 



001609 

0799 

F672 



001610 

079 A 

8753 



001611 

079b 

9DC0 

FBOD 


001612 

079D 

097B 



001613 





001614 

079E 

B871 



001616 

07 9 F 

8600 

0781 


001616 

07A1 

6752 



001617 

07A2 

8756 



001618 

07 A3 

3086 



001619 

07A4 

7088 



001620 

07A6 

A956 



001621 

07A6 

0980 

07 AE 


001622 

0 7A8 

4700 

0794 


001623 

07 AA 

6F60 

0765 



0 7 AC 

7F7F 



001624 

07 AD 

8385 



001626 

0 7 At 

8 FOO 

0773 



07B0 

7F7F 



001626 

0 7 b 1 

D800 

0763 


001627 

07B3 

5D07 



001628 

07B4 

0300 



001629 

07 66 

8980 

0826 


00163U 

07B7 

09FD 



001631 






0768 

FBCO 

0003 



07 BA 

D360 

0000 



0 76C 

0F80 




07 BD 

0 7E3 



001632 






076t 

FBCO 

0003 



07 CO 

D380 

0000 



07C2 

OF 80 




07C3 

0782 





07C4 

FBCO 

0003 



0 7 Co 

D360 

0000 

X 


07C6 

OF 80 




0 7Cv 

07E6 



001534 

07CA 

FBCO 

0003 



07CC 

D380 

0000 

X 


07Ct 

0F80 




0 7CF 

077B 



001535 

0 7 00 

FBCO 

0003 



0 7D2 

D380 

0000 

X 


0 7D4 

OF 60 




0705 

07E6 



001536 

U7D6 

FBCO 

0003 



07 06 

D380 

0000 

X 


U7DA 

OF 80 




07DB 

077F 



001537 

07 DC 

6F80 

0773 



07DE 

7F7F 



001536 

07 OF 

6A80 

0783 


001539 

07E1 

OF 80 

07A8 


001540 

07E3 

4259 

5446 2400 


001541 

0 7E6 

2049 

5324 


001642 

001543 

U 716 

2053 

4224 


001544 

001545 

001546 

001547 

07 E A 

6F0G 

0000 

X 


07tC 

7F7F 



001546 

07 ED 

1C10 



001549 

07 tt 

68D1 



001550 

07 EF 

19FF 



001551 

U7F0 

8F60 

0000 

X 


07 F 2 

7F7F 




M5CWDR TEXT *CONFG-WDS MISCOMPAREDj • ,Z«ODQA* 


TEXT Z•07•*•$• 

CWAF RESV 1*0 

CWBF RESV 1*0 

MSCWDA RESV 2*0 

CWQERR RESV 1*0 

** ** ******* ** ***** * ******** *** 

# * 

* COMPARE ROUTINE ♦ PRINT * 

* MISCOMPARES * 

* * 

******* ***** * ************** ** * 
CPSAV1 RESV 7*$mF+7*0 

CPSAV2 RESV 7*$AF+7,0 

WDBYTE RESV 1*0 

BYTENO RESV ItO 

CPRERR RESV 1*0 

* $bl = ADDRESS OF "SHQULD-BE" 

* RDBUFK * ADDRESS OF "IS” 

* $B4*RANGt s RANGE TO COMPARE 

* 

CMPARA SAVE <CPoAVl**Z•7F7F» 

B >CMPARB 

CMPARE SAVE <CPSAVI*=Z , 7F7F» 

LAB $B2 *<RDBUFR 

CL <BYTENO 

CMPARB EUU * 

LDR SR4,$B4 # RANGE 
DEC *S»R4 

CE <WDBYTE 

CPAR1 EUU * 

INC <BY TEND 

CMZ <WD»YTE 

bNt > + $A 

LDR SR7,+$B2 

CL sSR3 

CMb Sbi*AZEROS 

BE > + $A 

* 

LDR SR3 * + $Bi 

S>A CPL <WDBYTE 

CL = $R2 

CL = SRo 

DOL SR3 * 8 

DUL SR7,S 

CMR SR2*s$R6 

BNE <CPKDMP 

CPRNXT bDEC $R4*<CPARI 

RSTR <CP5AV1*=Z*7F7F* 

JHP *65 

CPRDMP SAVE <CPSAV2*=Z«7F7F* 

LDR *R5 *<CPRERR 

CMV $R5 * = 7 

BG > + SC 

CMZ <PRTFLG 

BNt > + $C 

CALL zVST*ZV$TC*MSBYTE 


***** TEMP ***** 

configuration-wd-a end value 
CONFIGURATION- w D-B end value 


word-byte sw* 

NO* OF MISCOMPARES 


NEW WORD? 

NO - BCH 
IS field 

PREPARE FOR U OF ZERO 

SEE IF ADDRESb OF the ZERO WORD 

SKIP THE POP 4,61 For a COMPARE TO A FIELD s 0 

SB FIELD 

SET BYTE TAKEiM 


SB = IS 


NO* OF ERRORS 
MAX. ALLOWED 

CK ERROR-PR INi INHIBITED 
BCH IF YES 


CALL ZV$IH*BYTENQ 


CALL ZVSTtMSIS 


CALL ZV$TH.ZV$THZ*CPSAV2+(7*$AF+1) Ra 


Call ZVSUMSSBE 


CALL ZV$TH*ZV$THZ* CPSAV2 +(7**aF+:>) R2 


sc 

RSTR 

<CPSAV2*sZ*7F7F* 


INC 

<CPkERR 


b 

<CPRNXT 

MSbYTE 

TEXT 

•BYTES* 

MSI S 

TEXT 

* IBS* 

MS5BE 

TEXT 

* Sp$ • 


*-* 


* SUBROUTINE TO DELAY FOR * 

* INPUT FROM CONTROLLER * 

* ---- — —* 

IODELY SAVt <ZVa»SV2*=Z , 7F7F* 

LDv $R 1 *-X* 10 * SET CuUNTER=l6 

$A DEC =$R1 

BNEZ $R1* >-$A 

RSTR <ZV*SV2*=Z»7F7F* 
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001552 
00 i b^>3 
001554 
001555 
001556 
001557 
001556 
00155V 
001560 
001561 
00156c 
001563 
001564 
001565 

00156b 

001567 

001566 

001569 

001570 

001571 

00157c 

001573 

001574 

001575 

001576 

001577 

001576 

00157V 

001560 

001581 

001582 

001583 

001584 

001585 
001586 
001587 
001586 
001589 
001590 
001591 
001592 
001593 
001594 
001595 
001596 
001597 
001898 
001599 
001600 
001601 
001602 
001b03 
001b04 
001605 
001606 
001b07 
OOloOb 
001609 
001610 
001611 
00161 c 
001613 
001614 
001615 
OOlolb 
001617 
001618 
001619 
001620 
001621 
001 b2c 
001623 
001624 
001c25 
00io26 
001627 
00 lo2b 
001629 
001630 
001631 


001632 
001633 
001634 
00io35 
001636 
001637 
001638 
001b39 
001640 
001641 
001642 
001643 


001644 
001645 
001646 
001647 
001648 
001649 
00 lo50 
001651 
001652 
001653 
001654 
001655 
00165b 
001657 


07F3 

8387 





JMP 

$B7 








****************************** 







* 

ERROR 

TEST 

* 







****************************** 


07F4 

DF80 

oaiA 



ERRTST 

STB 

S>B5 *<ERTSTX + 1 


STORE RETURN IN EXIT 

07Fb 

8980 

05C7 




CM2 

<TIMOUT 


TIME-OUT 

07F8 

0980 



T 


BNC 

>*$A 


07F9 

8980 

05C8 




CM2 

<STATER 


STATUS ERROR 

07FB 

09 FD 



T 


BNE 

><f$A 


07FC 

8980 

06FB 




CM2 

<RNbERR 


RANGE ERROR 

07Fe 

09FD 



T 


BNE 

> + $A 


07FF 

8980 

0721 




CM2 

<OFRGER 


offset-range error 

0801 

09FD 



T 


BNE 

>*$A 


0802 

8980 

0764 




CM2 

<CWOERR 


cqnfiguration-wds error 

0804 

09FD 



T 


BnE 

>*$A 


0805 

8980 

0783 




CM2 

<cpkerr 


DATA MiSCOMPAKE 

0807 

09FD 



T 


BNE 

> + $A 


0808 

8980 

085B 




CM2 

<ERRFLG 


ERROR FLAG 

080A 

0901 

OOOE 




BE 

ERTSTX 


080C 

8980 

0826 



3>A 

CM2 

<PRTFEG 


error-print inhibited?? 

080E 

0986 





BNE 

>RTNA 


BCH IF YLS 

080F 

D380 

0000 


X 


LNJ 

$B5 *<ZV$ER 


CALL 2V$LR-SUoR 

0811 

0F83 





B 

>RTNA 


0812 

0885 




MSTADD 

DC 

<MOOEA 


ADDRESS OF TEbT 


0812 




MSTADX 

EQU 

$-1 


Ob 13 

081b 




MSORU 

DC 

<MSMPDC 


MESSAGE UD. 

0814 

0F02 




RTNA 

NOP 

>$♦2 



0F80 

8388 




* 

HLT 

EELET OPERATOR 

MAKE 

DECISION ON WHAl TO DO!!*! 

0815 

0817 

012E 

0812 




b 

JMP 

<next what 

*<MSTADD 

SHOULD WE DO NOW????? 

GO TRY TEST AoAIN 

0819 

OF 80 

0000 



tRTSTX 

b 

<RETURN 


EXIT TO NEXT TEST 

08 1B 

4D50 

4443 

2400 


MSMPDC 

TEXT 

•MPDC$* 


Obit 

4144 

4150 

542D 


M5ADPT 

TEXT 

• ADAPT-PK$• 



0o2 1 

504b 

2400 







0823 

4452 

4956 

4524 


MSDRVE 

TEXT 

•DRIVES* 



0826 

0000 




, prtflg 

RESV 

1*0 


INHIBIT ERROR-PRINT FLAG 


0827 

0829 

082b 

oacD 

Q62F 

0831 

0633 

0835 

0837 

0839 

0836 

0830 

083F 

0841 


UF80 
OF 8 0 
8880 
8880 
8700 
8700 
8700 
8700 
8700 
8700 
8700 
8700 
0380 
0F80 


0842 

0812 

0812 

0812 

05C7 

05C8 

06F6 

0721 

0764 

0783 

085B 

0393 

085C 

0000 


0843 

U643 

8700 

0722 

0845 

8700 

Ob FC 

0847 

8700 

0760 

0849 

8700 

0761 

084b 

8700 

0762 

084D 

8700 

0763 

084F 

8385 


0650 

UF8G 

085 A 

0852 

8600 

085b 

08 54 

D380 

07F4 

0856 

8700 

085B 

0656 

0000 


0859 

OF 80 

0000 

065d 

0000 


065c 

UF 80 

086 7 


085t_ 
08 60 ” 
0 6 6c 
0864 
0866 


F6F0 0001 
0380 0000 
8980 0000 
0980 0128 
0F80 0000 


08 7o 
0870 
087F 
0881 


087b 

ObbO 087b 
OF 80 0A88 
0680 0970 
0F8U 0935 


SET TEST AOORtSS AND 
CLEAk ERROR FLAGS 


SETEST STB 
STB 




DE 
CL 
EL 

CL 
CL 

s 

LNJ 

SETSTX B 

*-—-—— 

* HOUSE-KEEPING 

HOUSKP EOO 
CL 
Cl 
CL 
CL 
CL 
CL 
JMP 


$B5 *<SET STX+1 

$B5 « <MSTADD 

<MSTADX 

<MSTADX 

<TIMOUT 

<STATER 

<RNGERR 

<0FkGER 

<CWO£RR 

<CPRERR 

<ERKFLG 


SAVE WHERE FRdM 
SET TEST ADORtSS 


<GOF1LL 
$B5 »<S£N5E 
<RETURN 


<OF“kLFT 
<RNGLFT 
<CWAF 
<CWBF 
<MSCWDA 
<MSCWDA+1 
$B5 

***** ******** ************** *** 
ERROR DETECTED * 

****************************** 


$65 *<ERUREX+i 
<ERRFLG 
$65 *<ERRTST 
<ERRFLG 

<RE1 URN 
1*0 



0868 



NODCU 

EuU 

0868 

9B80 

0860 



LAb 

0b6A 

D380 

043b 



LNJ 

Ob6C 

0003 




RTT 

0860 

4E4F 

4L2D 

4558 

MSNDCU 

TLXT 

0870 

4953 

5449 

4L47 




2052 

4553 

4F55 




5243 

4520 

5452 




4150 

2400 





ERROR STb 
CPL 
LNJ 

Cl 
hlt 

LROREX b 
ERRFLG RtSV 

- 

* check if console break-key 

* TO DO SOMETHING 
SENSE 


SENSB5 

* COME HERE IF A NON-EXISTING * 

* RESOURCE TRAP OCCURS * 

* - -—— - * 

$ 

$61»<M5NDCU 
$65,<2VTC 


CONSOLE BREAK-KEY?? 
EXIT 


REMAINING OFFSET-RANGE 
REMAINING RANbE 
CNFG-WD-A END 
CNFG-wD-B END 
CNFG-WO-A IS 
CNFG-WD-B IS 
RETURN 


STORE RETURN IN EXIT 
SET ERROR FLA* 


ERROR flag 


STb 

CALL 

$B5 * <SENSB5‘»' 1 
2VSBRK 


CHECK 

CONSOLE 

CM2 

<ZV$bKF 


CHECK 

FLAG (1 

BNL 

<NEXT 


BREAK 

DETECTED 

B 

<RETURN 

--* 

EXIT 


»NON-EX l ST ING RESOURCE TRAPS)* 


****************************** 

* * 

* MODE "T" TURNAROUND * 

* * 
****************************** 

* AUTOMATIC MODE TESTS OF THE CONTROLLER ♦ ADAPTER ONLY 

* WRITE-RLAD SCRATCH-PAD AND DATA WRAPAROUND 

* NO DRIVE IS USED* RONS INDIFINITEEY. 

MODET EOO $ 

EAb $B5 »<MQDET QUE LOOPBACK 

STB $B5 *<MQDETX +1 

LAB $B5*<WRAPIT QUE OUT FIRMWARE 

STB $65*<RWRSPX+1 REV. CHECK 
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001658 

001659 

001660 

0863 

0F80 

0880 



6 

<MQuEAA 

GO EXECUTE 





* 


# 


001661 





* 

MOD 

t - M A M * 


00166 a 

001663 





* 


* 










001664 





* 

AUTOMATR MODE WHICH WILL 

TEST THE CONTROLLER 

001665 





* 

And THE ADAPTER PAC THEN ALL FUNCTiONALL11Y 

001666 





* 

OF THE SUBSYSTEM USING THE 

PACK ON THE SPINDLE 

001667 





* 

ASS1GNLD To THIS CHANNEL. 


001 t>68 


0885 



MODEA 

EGU 

5 


001669 

0685 

0680 

094C 



LAb 

8B5.<DPFIRV 

QUE FIRMWARE CHECK 

001670 

0887 

0F80 

0935 



ST b 

$B5,<RWRSPX*1 

001671 

0889 

0680 

GAt7 



LAb 

$B5,<IDTEST 

QUE I.0.TEST 

00167a 

0886 

OF80 

0A88 



ST 6 

565,<M0DETX*1 


001673 


0880 



foObEAA 

tuu 

8 


001674 

0880 

0380 

0843 



IN J 

i»B5, <HOUSKP 

HOUSEKEEPING 

001675 

08bF 

9680 

0816 



LAb 

5B1.<MSMPDC 


001676 

001677 

001678 

0891 

9FC0 

FF81 


* 

STB 

8 bl.MSORU 

SET O.K.U. IN MESGe ID 









001679 





* CONTROL wQKO OUT-IN TEST * 


001680 

















001681 





* WRITE lONTKOl-WURD, READ CONTROL-WORD 

ooloaa 





* DATA 

OF ZEROS. (DO NOTHING) 


001683 





* MAKE 

SURE 

PCJ IS ADDRESSABLE. 


001684 

0893 

03C0 

FF 93 


CWOTST 

LNJ 

8b5 * SETEST 

SET TEST ADDRcSS 

001685 

0895 

F380 

0557 



LNJ 

$B7.<SIONAK 

SET 10 AODRESi FOR RETRY 

001686 

0897 

8000 

02 AA 



IU 

<ZEkOS.<wCTL 

WRT CONTROL WuRD = 00 


0899 

0000 

0274 





001687 

001688 

089o 

0781 

FCC8 


# 

61 OF 

IONAK 


001689 

0890 

F3C0 

FC69 



LNJ 

$B7,S1ONAK 

SET IQ ADDRESS FOR RETRY 

001690 

089F 

6054 




IU 

s$Ra,<RCTL 

KD CON1ROL WOkD 


08 AO 

0000 

0273 






001691 

08A2 

0781 

FCC1 



biOF 

IONAK 


001698 

08A4 

F3C0 

FF45 



LNJ 

8b7 . I QDELY 

DELAY 

001693 

08A6 

C900 

02AA 



CMR 

$R4.<ZEROS 


001694 

08A8 

0900 


T 


BE 

>*$A 


001695 

08A9 

F380 

0850 



LNJ 

3>B7 .<ERROR 


00169b 

08A6 

8751 



$A 

CL 

= $Rl 


001697 

001698 

001699 

06AC 

0380 

U3Bt) 



LNJ 

5B5.<INITZ 

INITIALIZE SUpSYSTem 

08 At 

D3C0 

FF7 8 



LNJ 

565.SETEST 

SET BEGINNING OF TEST 

CLEAR IOLD DIkECTIqn-bIT 

Q01700 

0860 

0800 

0278 



LDR 

5R5,<WRT ADD 

001701 

0862 

0570 

FF6F 



AND 

SR5•sZ•FFBF• 

00170a 

0864 

OF 00 

0278 



STK 

$R5.<WRTADD 


001703 





**************** ************ ******* 

001704 





* READ/WRITt/READ SCRATCH-PAD 

* 

001705 






001706 





* TEST 

FOR THE ABILITY OF CONTROLLER TO ACCEPT 

001707 





* BOTH 

INPUT 

AND OUTPUT COMMANDS. 


001708 





* READ 

* READ 

LOCATION. CHECK FOR EEROS. 

WRITE ONES, 

001709 





AND ChtCK, WRITE ZEROS. READ AND CHECK. 

001710 


08b6 



RWKSP 

EuU 

5 


001711 

08 b6 

F3C0 

FCAO 



LNJ 

$67♦SIONAK 


00171a 

0868 

8055 




10 

=$R5.<INCMD.$R1 



08b9 

0010 

0254 






001713 

0866 

0781 

FCA8 



6I0F 

IONAK 


001714 

06b0 

F3C0 

FF2C 



LNJ 

867.IODELY 

DELAY 

001715 

ObBF 

0900 

02 AA 



CMR 

8R5.<ZEkOS 


001716 

08C1 

0900 


T 


bt 

>*5A 


001717 

0812 

0380 

0936 



LNJ 

8b5 * <SPERR1 


001716 

08Ch 

F3C0 

FC92 


$A 

LNJ 

8B7.SIONAK 


001719 

08 C6 

8000 

02A8 



10 

<0NtS,<0UTCMD.8Rl 


001720 

0 bC8 

0010 

0275 






08CA 

0781 

FC99 



6 IGF 

IONAK 


001721 

08CC 

F3C0 

FC8A 



LNJ 

867,SIONAK 


001722 

08CI 

8055 




10 

s$R5,<INCMD.8K1 



080 

0010 

0254 






001723 

0801 

0781 

FC92 



610F 

IONAK 


001724 

0803 

F3C0 

FF16 



LNJ 

867,IODEIY 

DELAY 

001725 

0805 

0900 

02A8 



CmR 

8R5,<0N£S 


001726 

0807 

0900 


T 


bt 

>♦$6 


001727 

0808 

0380 

0947 



LNJ 

8B5,<SPtKR2 


001726 

080A 

F3C0 

FC7C 


8 b 

LNJ 

567,SIONAK 


001729 

0801 

8000 

02 AA 



10 

<ZEK0S,<0UTCMD.$R1 



OtiOt 

0010 

0275 






001730 

08 tO 

0781 

FC83 



bIQF 

IONAK 


001731 

08ta 

F3C0 

FC74 



LNJ 

867,SIONAK 


001732 

08t4 

8055 




10 

s$R5,<INCMD.$RI 



08t5 

0010 

0254 






001733 

08 £7 

0781 

FC7C 



bIQF 

IONAK 

DELAY 

001734 

08t9 

F3C0 

FFOO 



LNJ 

8B7,IODEIY 

001735 

08t6 

0900 

02AA 



CMR 

8R5,<ZEK0S 


001736 

08£o 

0900 


T 


Bt 

>♦81 


001737 

08 tt 

0380 

0936 



LNJ 

$B5,<SPERR1 


001738 

G8F0 

8AD1 



8 C 

INC 

= SRi 

END OF SCRATCnPAD? 

001739 

ObFi 

lOiC 




CMV 

8R1f-X * 1C• 

001740 

08F2 

0200 

0866 



tb* 

<RWKSP 


001741 

Q8F4 

D800 

0278 



8R5,<wRTADD 


001742 

ObF6 

5E40 




ADV 

8R5,sX *40 * 

PUT DIRECTION-BIT BACK IN IOLD 

001743 

0 8 F 7 

OFOO 

0278 



STR 

5R5,<WRTADD 

001744 

08F9 

03 CO 

FF20 



LNJ 

5B5,SETEST 

001745 

ObFb 

F3C0 

FC56 



LNJ 

8B7,SIONAK 


001746 

08 FO 

8180 

1791 



IOLD 

<WR)BFR,<WRTA0D,<T1RTY3 IOLD 


08FF 

0000 

0278 







0901 

0000 

02 AE 






001747 

090b 

0781 

FC60 



BIOF 

IONAK 


001748 

0905 

F3C0 

FC51 



LNJ 

5B7,SIONAK 


001749 

0907 

8055 




10 

s$R5,<INMG0 



0908 

0000 

0258 






001750 

090A 

0781 

F3CG 

FC59 



biOF 

IONAK 


001751 

090C 

FEDD 



INJ 

5B7.I0DELY 

DELAY 

001752 

090t 

0900 

02AA 



CMR 

8R5,<ZER0S 


001753 

0910 

0900 

T 


bt 

>♦50 


001754 

0911 

F360 

0850 



LNJ 

5B7,<ERR0R 


001755 

0913 

F3C0 

FC43 


8 D 

LNJ 

8B7,SIONAK 


001756 

0915 

8055 




10 

= 5R5,<INADD 



0916 

0000 

0257 






001757 

001758 

0918 

091A 

0781 

9B80 

FC4B 

1791 



m 

IONAK 

561,<WRT BFR 


001759 

0911 

9F80 

1791 



STB 

5 bl,<WRTbFR 




‘" 4 ,. .,4 
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0 017 6 U 

091L 

F 360 

F6C6 


LNJ 

$B7,I0DELY 

DELAY 

001761 

0920 

5041 



SOR 

$R5 * 1 


001762 

0921 

0900 

1791 


Cmk 

$R5*<wRT6FR+$AF-l 


001/63 

0923 

0900 

7 

66 

> + $c. 


001764 

0924 

F 360 

0850 


LNJ 

$B7,<ERK0K 


001765 

0926 

F3C0 

FC30 

it 

LNJ 

$B7 * S1ONAK 


00i76o 

0926 

6055 



10 

= $R5 * <RRANGL 



0929 

0000 

0259 





001767 

092b 

0781 

FC38 


bluF 

IONaK 


001766 

0920 

F 360 

F66C 


LNJ 

SB7 »1ODLLY 

DELAY 

001769 

092F 

D900 

02A6 


CNR 

$R5,<TIRTY3 


ooi no 

0931 

0903 



bL 

>rwkspx 

EXIT 

001771 

0934 

F 3 8 0 

0650 


LNJ 

$B7 * <ERKOR 


001774 

0934 

0F80 

0946 

RWKSPX 

6 

<DPP I R V 

EXIT 

001773 


0936 


5PERR1 

LjO 

i 


001774 

0936 

9970 

0006 


CMK 

$R1♦ = 2 * 0006• 

STATUS RLGISTtR 

00177b 

0938 

0980 


T 

BNE 

>*$F 


001776 

0939 

0970 

8000 


CMR 

$R5 * = 2 * 8000* 

DEV lCE-RfcADY-t>I T 

001777 

093b 

0900 


T 

66 

>*$H 


00177b 

093C 

0970 

6000 


CNR 

$R5 * = 2 * COOO * 

DEV-READY * ATTN 

001779 

0936 

0970 


T 

66 

> + $H 


001 780 

0931- 

0F8Q 


T 

b 

> ♦ Sb 


001781 

0940 

1012 


$F 

CMV 

$kl*=4»12* 

DEV-1D 

001784 

0941 

0970 


1 

66 

> + $H 


001783 

0944 

1013 



CMV 

$R1 * =2 * 13• 

chan-number 

001784 

0943 

0976 


I 

66 

>*$tt 


00176b 

0944 

F 360 

0850 

$G 

LNJ 

$67 * <ERROR 


001786 

0946 

6365 


$H 

JMP 

$B5 


001/87 

094 7 

loll 


5PEKR2 

CMV 

$R1*=Z*11' 

chann-monitor 

001788 

0948 

0976 



66 

> —$N 


001769 

0949 

P 360 

08 50 


LNJ 

$B7 * <ERROR 


001/90 

094b 

6385 



JMP 

$B5 


001791 




*—-- 




001/94 




* READ 

♦ PRINT FlhMWAKE REV. * 


001793 




*--- 




001794 

094C 

0380 

0950 

DPF1RV 

LNJ 

$B5 * <F IRNRV 


00179b 

0946 

0F80 

0970 


6 

<WRAP I T 


001796 


0950 


FIRMRV 

LuU 

$ 


001797 

0950 

6F00 

0773 


SAVE 

<CPSAV2*=Z*7F7F* 



0952 

7F7F 






001798 

0953 

0360 

F603 


LNJ 

$B5 * SLTLST 

SET TbbT ADDRESS 

001799 

0955 

A800 

0271 


LOR 

$R2 *<FIKMID 

CMD TU READ FIRMWAre-I.D 

001.600 

0957 

A644 

0010 


XUR 

$R2 * $64.PORTCH 

SET PORT NO. 

001601 

0959 

8000 

09 6 F 

$ A 

10 

<FIktVN*=$R2 

READ SCH-PAD *3D) 


095o 

0052 






001802 

0956 

07F0 



61 OF 

>-$M 


001803 

09bb 

9680 

0966 


6A6 

Sbl*<MSFREV 

MESG "REV* FIKMWARE" 

001804 

09b F 

0380 

0436 


LNJ 

$65*<ZVTC 

PRINT MESG 

00160b 





call 

2VSrH.2V$TH2*FIREVN 

PRNT RtV-NO. 


0961 

F 600 

0003 






0963 

0380 

0000 

X 





0965 

0F80 







096b 

096 F 






001606 

0967 

dF 80 

0773 


kstr 

<CPSAV2*52#7F7F* 



0969 

7F7F 






001607 

096 A 

8365 



JMP 

$65 

EXIT 

.0 0 1 6 0 6 

096o 

4657 

2052 4556 

MSFKEV 

TLXT 

*FW REVS* 



0966 

2400 






001609 

096F 

0000 


FIREVN 

RLSV 

1*0 

FIRMWARE REVISION no. 

OOlblO 




****************************** 


001611 




* 


* 


001611! 




* 

WRAPAROUND TEST * 


001613 




* 


* 


001614 




****************************** 


00161b 




* TRY 

THE DA]A PATH. FIRST wRAP 1 

BYTE OF 

001616 




* DATA 

AROUND THE MOTHERBOARD.THEN 

2 BYTES , 

001617 




* (1 WORD) * 

THEN 10 BYTES. ZEROS 

+ ONES ARE 

001616 




* USED 

. PAT 

TLRN OF * AA55 * 


001619 




* 

bY 

TL-MGDE IS THEN TRIED. 


001620 




* CHANGE TASK TO WRAP OAUGHTER-6GARD AND 

001621 




* REPEAT. 



001622 




* FINALLY* 

OFFSET-RANGE IS CHECKED. 

001623 




* 

SRI = 

INDEa 


001624 




* 

$R3 = 

DATA 


00162b 




* 

$R4 = 

RANGE 


001826 

0970 

D3C0 

FEB6 

WRAP IT 

LNJ 

$B5 * SLTEST 


001627 

0972 

0380 

0366 


LNJ 

$B5 * <INIT2 

INITIALIZE SUoSYSTEM 

00U26 

0974 

6870 

6100 


LDR 

$R4 *=2*6100* 

MOTHERBOARD 

001829 

0976 

CFOO 

0AA6 


STR 

$R4 * <WRPT SK 


001830 

0976 

A800 

0277 


LDR 

SR2 * <WT ASK 


001831 

097a 

A64<+ 

0010 


XUR 

SR2 * SB4.PORTCH 


001634 

0976 

AFOO 

0A6D 


STR 

$K2%<WRPWTK 


001633 

0976 

A800" 

0278 


LDR 

$R2 * <WLOAD 


001834 

0980 

A644 

0010 


XOK 

$R2*$B4.PORTCH 


00163b 

0982 

AFOO 

OA 66 


STR 

SR2 * <WRPLDW 


001636 

0984 

A800 

0294 


LDR 

SR2*<KL0AD 


001837 

0986 

A644 

0010 


XOR 

SR2*S64.PORTCH 


001836 

0988 

AFOO 

GABC 


STR 

SR2 * <wRPLDR 


001639 




* 




001640 

098A 

4CQ1 


wRAPM 

LDV 

$R4♦ = X * 01 * 

RANGE 1-BYTE 

001641 

098b 

8751 



CL 

= $R1 


001642 

0986 

b380 

0A89 


LNJ 

$B3 * <GOWRAP 


001643 

0986 

4C02 



LDV 

SR4,sX*02» 

RANGE 2-BYTES 

001644 

09 8 F 

6380 

0A89 


LNJ 

$63 * <GOWRAP 


00164b 

0991 

4C0F 



LDV 

$R4,*X*0F* 

RANGE 15-BYTEb 

001646 

0994 

6360 

0A89 


LNJ 

$B3 * <GOWRAP 


001647 

0994 

4C10 



LDV 

$R4♦ = 2 * 10 1 

RANGE 16-BYTEj 

001646 

0995 

6380 

0A89 


LNJ 

$B3*<G0wRAP 


001649 




* 




001650 




* 

WRAP AA5555AAAA5555AA 

DATA PATTERN 

001651 




* 




001652 

0997 

O3C0 

FE8F 


LNJ 

$B5 * SETEST 


001653 

0999 

6870 

AA5 5 


LDR 

$R3 * = 2 * AA55• 

SPECIAL PATTERN 

001654 

099b 

0380 

0A9E 


LNJ 

$B5 * <LD6UF 


001655 

099D 

3016 



SCL 

$R3 ♦ 8 


001656 

0996 

1C01 



LDV 

$R1*=X*Q1* 


001657 

09 9 F 

6F10 

1791 

$A 

STR 

$R3f<WRT6FR.$Rl 


001658 

09A1 

1602 



ADV 

$R 1 * ==X • 02 • 


001659 

09A2 

1D09 



CMV 

$R1 * = X * 09 * 


001660 

09A3 

027C 



6L 

>-$A 


001661 

09 A4 

8751 



CL 

s$Rl 


001662 

09A5 

0380 

0AA7 


LNJ 

$B5 * <WRTOUT 


001663 

09A 7 

0380 

OABE 


LNJ 

$B5 *<RDIN 
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001864 

09A9 

0380 

0A07 


LNJ 

$B5 ♦<COMPAR 



001663 




* 





001666 




# 

BYTE-MODE WRAP AROUND 



001667 




* 

(ODD GUI 

- ODD IN) 



001666 




* 





001669 

09 Ab 

03C0 

FE7b 


LNJ 

SB5 »SETEST 



001670 

09 AO 

9B80 

1791 


LAB 

$B 1 »<WRTBFR 



001671 

09AF 

4C12 



toy 

$R4,=X*12* 



00167* 

09b0 

F870 

0102 


LDR 

$R7*sX * Q102 * 


DATA PATTERN 

001673 

09b2 

0380 

047F - 


LNJ 

SB5 *<INCBFR 


INCREMENTING DATA 

001674 

09b4 

KOI 



LDV 

lRUsX«01* 


BYTE-MODE INDtX 

001673 

09b5 

4C10 



LDV 

$R4 tsX•10• 



001676 

09bo 

0380 

QAA7 

S 

END 

$B5 *<WRTQUT 



001677 

09b6 

0380 

0A6E 


LNJ 

$B5 »<RDIN 



001676 

09bA 

b870 

3302 


LDR 

$R3 »sX•3302 * 



001679 

09bC 

bFOO 

1791 


STR 

$R3 *<WRTBFR 



001660 

09bt 

F3C0 

FE2b 


LNJ 

$B7*IODLLY 


DELAY 

001681 

09C0 

AC 11 



LDV 

$R4t = X * 11* 


COMPARE RANGE (BYTES) 

001662 

090 

0360 

0A07 


LNJ 

$B5♦<CQMPAR 



001683 

09C3 

F800 

0AA6 


LDR 

$R7 » <WRPTSK 



001684 

09C3 

F970 

COOO 


CMR 

$R7,s2*C000* 


^DAUGHTERBOARD? 

001683 

09C7 

090b 



BE 

>WRAPD 



001686 

09C 8 

F 870 

COOO 


LDR 

$R7 t -Z *COOO• 


DAUGHTERBOARD(PAC) 

001687 

09CA 

F F 0 0 

0AA6 


STR 

$R7 t <wRPTSK 



001686 

09CC 

9B80 

08 It 


LAB 

SBlt <MSADPT 



001689 

Q9Ct 

9F80 

0813 


STB 

SBl»<MSORU 


SET ORU-ID 

00169U 

0900 

OF 60 

098A 


b 

<WRAPM 



001891 




# 





001892 




* 

BYTE-MODE (ODD OUT - 

EVEN 

IN) 

001693 




* 





001694 


0902 


WRAPD tQU 

$ i 



001893 

0902 

D3C0 

FE54 


LNJ 

$B5 9 SETEST 



001696 

0904 

9b60 

1791 


LAB 

$bl» <WRTBFR 



001697 

0906 

4C12 



LDV 

$R4,=X*12* 


RANGE 

001698 

0907 

7 CO 1 



LDV 

$R7 t = X * 01 * 


DATA PATTERN 

001699 

0906 

0380 

047 F 


LNJ 

$85 t < INCBFR 



00190U 

090A 

1 C 01 



LDV 

SR 11 -X•0 1 * 



001901 

090b 

4C10 



LDV 

SR4 * = X * 10 * 



001902 

09OL 

0380 

0 AA7 


LNJ 

SB5 *<WRTOUT 



001903 

ovot 

6731 



CL 

= $Ri 



001904 

Q 9 DF 

0360 

OABt 


LNJ 

SB5 » <RDIN 



001903 

0911 

9b80 

1791 


LAB 

$blt <WRTBFR 



001906 

0913 

4C12 



LDV 

SR4»sX*i2* 



001907 

09t4 

F870 

0102 


LDR 

SR7*~X *0102 * 


DATA PATTERN 

001906 

09 to 

0380 

047 F 


LNJ 

SB5 * <INCBFR 



001909 

0916 

8804 



D£C 

= $R4 



00 i 9 1 U 

09t9 

6804 



DLC 

= $R4 


RN6E=*0010* 

001911 

09t A 

0380 

0AD7 


LNJ 

$B5*<C0MPAR 



001914 




# 





001913 




# 

b YTt- 

MODE (EVEN OUT - 

ODD 

IN) 

001914 




* 





001913 

09tC 

O3C0 

Ft3A 


LNJ 

SB5»SETEST 



001916 

09 tt 

4C12 



LDV 

SR4,5X*12* 



00191 7 

09 tF 

F 870 

0102 


LDR 

$R7,=X*Q102* 



0019 1 o 

09F 1 

9B80 

1791 


LAb 

$BU<WRTBFR 



001919 

09 F 3 

0380 

047 F 


LNJ 

S65 INCBFR 



001920 

09 F 3 

8751 



CL 

s$R 1 



001921 

09F6 

4C10 



LDV 

$R4 * = X * 10' 



001922 

09 F 7 

0380 

0AA7 


LNJ 

$b5*<WRTQUT 



001923 

09F9 

8A01 



INC 

s$Ri 



001924 

09F A 

0380 

OABt 


LNJ 

$65,<RD1N 



001923 

09FC 

9b60 

1791 


LAB 

SB1»<WRTBFR 



001926 

09F t 

4CU 



LDV 

SR4 * = X * 11 * 



001927 

09FF 

7C01 



LDV 

$R7»=X«01* 


DATA PATTERN 

001926 

UA00 

0380 

047 F 


LNJ 

S65♦<1NCBFR 



001929 

OAO* 

F 8 70 

3301 


LDR 

$R7 » =X * 3301 * 



001930 

0A04 

FFOO 

1791 


STR 

SR7 *<WRTBFR 



001931 

OAOo 

0360 

0AD7 


LnJ 

*B5t<C0MPAR 



001934 




* 





001933 




# 

OFFSET-RANGE WRAP DAUgHTERBOARD 

001934 




* 





001933 

OAOo 

0300 

FElt 


LNJ 

SB5*SETEST 



001936 

OAOA 

8751 



CL 

= $R 1 



001937 

OAQt) 

F870 

0102 


LDR 

$R7 * = X * 0102 * 


DATA PATTERN 

001938 

OAOO 

4C12 



LDV 

SR4 »= X•12 * 



001939 

OAUt 

9680 

1791 


LAB 

SB1,<WRTBFR 



001940 

OaI 0 

0380 

047F 


LNJ 

SB5 * <INCBFR 



001941 

0 A 1 2 

7 CO 1 



LDV 

SR7,-X*01* 


DATA PATTERN 

001942 

OA13 

9660 

1799 


LAB 

SB 1 *<WRT 6 FR +8 



001943 

0 A1 3 

03C0 

FA69 


LNJ 

SB5*INCBFR 



001944 

OAI 7 

F870 

1033 


LDR 

$R7,=X»1033* 



001943 

OAI 9. 

FF40 

0087 


STR 

SR7 * WRTBFR+16 



001946 




* 

OFF'SLT 

RANGE 01 



001947 

OAlb 

03C0 

FEOB 


LNJ 

$65«SETEST 



001948 

OAI 0 

4C10 



LDV 

$R4*=X*10* 


. RNGE 

001949 

0 A 11 

0360 

0 AA7 


LNJ 

$B5 *<WRTGUT 



001930 

0A20 

7 CO 1 



LDV 

$R 7 * = X * 01• 



001951 

0A2 1 

0380 

03 At 


LNJ 

$B5*<wT0FRG 


WRT OFSEl-RNGc 

001952 

OA23 

4C0F 



LDV 

$R4 *-X * OF• 



0U 1953 

0A24 

CF44 

ooot 


STR 

$R4*$b4.RANGE 



001954 

0A26 

0380 

OABt 


LNJ 

SB5XRDIN 



001955 

0A26 

0380 

060F 


LNJ 

$65,<CKRNGt 



001956 

0A2 a 

0360 

0705 


LNJ 

$B5 *<CKGFRG 



001957 

0A2C 

9B80 

179A 


LAB 

4bl,<wRT6FR+9 



001956 

0 A2 1 

0380 

0788 


LNJ 

*65,<CMPARL 



001959 

0A3O 

0360 

07 F 4 


LNJ 

$B5,<ERKTST 



001960 




* 

OFFStT 

range 02 



001961 

0A32 

03C0 

FL)F4 


LNJ 

$B5*SETEST 



001962 

0 A34 

4C10 



LDV 

SR4 * = X * 10 * 



001963 

0 A3 3 

03C0 

0071 


LNJ 

SB5 *WRTOUT 



001964 

0 A37 

7C02 



LDV 

$R7♦ = X * 02• 



001963 

0A3o 

03C0 

F 975 


LNJ 

SB5 » WTOFRG 


WRT OF SE T KNGt 

001966 

0 A3 A 

4C0E 



LDV 

SR4*=X*0t* 



001967 

OA3b 

CF44 

ooot 


STR 

$R4,$B4.RANGE 



001966 

0 A30 

03C0 

0080 


LNJ 

$B5,RDIN 



001969 

0 A 3 F 

03C0 

FC9F 


LNJ 

$B5tCKRNGE 



001970 

0A41 

03C0 

FCC3 


LNJ 

SB5 * CKOFRG 



001971 

0A43 

9BC0 

0D4t 


LAB 

SBl♦WRTBFR+1 



001972 

0A43 

03CO 

FD42 


LNJ 

SB5KNPARE 



001973 

0 A4 7 

03C0 

FDAC 


LNJ 

SB5KRRTST 



001974 




* 

OFFStT 

RANGE of 



001975 

0A49 

03C0 

FOOD 


LNJ 

SB5,SETEST 



001976 

0A4b 

4C10 



LDV 

SR4,=X*10* 




(O; 

O' 


‘V 
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001977 

0A4C 

D3C0 

005 A 


LNJ 

$B5 *WRTOUT 


00197b 

0A4E 

7C0F 



LDV 

SR7»5X»0F» 


—, 001979 

0A4F 

D3C0 

F951 


LNJ 

$B5*WTQFRG 


M 001980 

0A51 

4C01 



LDV 

$R4»= X•01• 


■ 001981 

0A52 

CF 4A 

ooot 


STR 

$R4,$64.RANGE 


% 001982 

0a54 

D3C0 

0069 


LNJ 

$65 *RDIN 


^ 001983 

0A56 

03C0 

FC86 


LNJ 

$B5 *CKRNGE 


001984 

0A58 

D3C0 

FCAC 


LNJ 

$B5*CKQFRG 


00198t> 

0 A5 A 

9BC0 

0D46 


LAb 

$81*WRTBFR*16 


001986 

0A5C 

D3CG 

FD2B 


LNJ 

$B5 *CMPARE 


001987 

0A5E 

D3CG 

F095 


LNJ 

$B5 »ERRTST 


001988 

0 A60 

8744 

000 F 


CL 

SB4.QFSTRG 

CLEAR OFFSET RANGE 

001989 





* 



001990 





* WRAP DAUGHTERBOARD WITH RANDOM 

DATA 

001991 





* 



001992 

0 a62 

D3C0 

FDC4 


LNJ 

$65 tSETEST 


001993 

0A64 

4C10 



LDV 

SR4»sX»10* 


001994 

0A65 

CF44 

ooot 


SJR 

$R4»$B4*RANGE 


001995 

0A67 

F 870 

00FF 


l6r 

$R7 » s=2 * OOFF * 

load no. of random wraps 

001996 


0A69 



WRPRDM tuU 

$ 


001997 





CALL 

ZV$FR *WRTBFRi EIGHT 

RANDOM DATA 


UA69 

FBCO 

0003 






0A6b 

0380 

0000 

X 





0A6U 

OF 80 







0A6L 

1791 







0m6F 

02 AC 






001996 

0A70 

0380 

0AA7 


LNJ 

*B5.<WRT0UT 


001999 

0A72 

0380 

OABt 


LNJ 

$B5»<RD1N 


002000 

U A7 4 

0380 

0AD7 


LNJ 

$B5 »<CQMPAR 


002001 

0A76 

7700 

0 A69 


BDtC 

$R7*<WRPRDM 

LOOP the RANDOM DATA WRAP *'FF" TIMES 

00200c 





* 



002003 

0A7 8 

D3C0 

FOAt 


LNJ 

$B5 1 SETEST 


002004 

0A7A 

b870 

OOFF 


LDR 

$R3.=2*00FF* 

sensitive data pattern 

002005 

0A7C 

O3C0 

0021 


LNJ 

$65 »LDBUF 

SET PATRN IN wRT-BFR 

002006 

0A7E 

F 870 

07 FF 


LDR 

$R7,=Z*07FF* 

NO. OF WRAPS 10 LOOP 

002O07 


0A80 



' WRPTQM LOU 

$ 


00200b 

0A8U 

03C0 

0026 


LNJ 

$65.WRTOUT 


002009 

0A82 

03C0 

003B 


LNJ 

$B5.RDIN 


0020lu 

Um84 

03C0 

0052 


LNJ 

$B5 * COMPAR 


002011 

0A86 

777A 



BDtC 

$R7 *>WRPTOM 

LOOP WRAP TEST 

002012 





# 



002013 

0A8 7 

0F80 

QAE7 


MODtTX b 

<IDTEST 

EXIT 

002014 





# 



002015 





* WRAP SUbROuTINES 


002016 





* 



002017 

0 A89 

B800 

02 AA 


GQwRAP LDR 

$R3 *<2ER0S 

WRAP ZEROS 

002016 

0A8b 

0380 

0A9t 


LNJ 

$B5* <LDBUF 


002019 

0A8D 

0380 

0AA7 


LNJ 

$B5»<WRTQUT 


002020 

0A6F 

0380 

OAbt 


LNJ 

$65 *<RDIN 


002021 

0A91 

0380 

0AD7 


LNJ 

$65 *<CGMPAR 


002022 

0A93 

B870 

FFFF 


LDR 

$R3*=2»FFFF* 

WRAP ONES 

002023 

0A95 

0380 

0A9t 


LNJ 

$B5 »<LDBUF 


Q02U24 

0A9 r 

0380 

OAA 7 


LNJ 

$B5 *<WRT0UT 


002025 

0A99 

0380 

OAbt 


LNJ 

$65 »<RDIN 


002u2b 

0A9d 

0380 

0AD7 


LNJ 

$B5 *<COMPAR 


£ 002027 

0 A9o 

8383 



JMP 

$B3 


f 002028 





* 



1 002029 





* FILL WRTBFR 

WITH DATA FROM $R3 


^ 002030 





* 



00203i 

0A9L 

8751 



LDbUF CL 

~$Ri 


002032 

0A9F 

9b80 

1791 


LAb 

$B1,<WRTBFR 


002033 

OAaI 

BF 50 



SB STR 

$R3*$61.*$R1 


002034 

0AA2 

1009 



CMV 

SRi»*X»09» 


002035 

0AA3 

027E 



bL 

>-$b 


002036 

0AA4 

8751 



CL 

= $Ri 


002037 

0AA5 

8385 



JMP 

$65 


002036 





* 



002039 





* WRAP DATA OUT 


002O4U 








002041 

0 AAo 

C100 



WRPTSK DC 

-2•C10Q» 

WRAP MOTHER OR DAUGHTER BOARD 

002042 


0AA7 



WRTOUT EuU 

$ 


002043 

OaA7 

F3C0 

FAAF 


LNJ 

$B7 .SIONAK 


002044 

0AA9 

8190 

1791 


1ULD 

<WRIBFR.$R1,<aRPLDw, 

= $R4 


OAAb 

0000 

OAbb 






0AAO 

0054 






U02045 

0 A At. 

0761 

FAB5 


blOF 

IONAK 


00204b 

OAbo 

F 3C0 

FAAb 


LNJ 

$B7 »SIONAK 


002047 

0AB2 

6000 

0AA6 


10 

<WRPT SK $<WRPWTK 



0 Ab4 

0000 

OABD 





00204ti 

UAbb 

0761 

FA AD 


blOF 

IQNaK 


002049 

OAbtj 

F3C0 

FD3 1 


LNJ 

$67 ♦lODtLY 

DELAY 

002050 

OAbA 

6365 



JMP 

$B5 


0Q2G5T 

Oadd 

0000 



WRPLDW RtSV 

IV 0 


002052 

OAbC 

0000 



wRPLDR RtSV 

ItO 


002O53 

OAbo 

0000 



WRPWTK RtSV 

1*0 


002u5^ 





* 



002055 





* READ WRAPPED DATA BACK 


00205b 





* 



002057 


OAbt 



KDIN EQU 

$ 


002056 

OAbt 

DF80 

0AD6 


ST b 

$B5,<RDINX*i 


002059 

OACO 

D380 

0464 


LNJ 

$B5,<RD6FIL 

FILL BUFK W/ 3333 

002u6U 

0AC2 

F3C0 

FA94 


LNJ 

$B7 .SIQNAK 


002061 

0AC4 

6190 

UOOO 

X 

10LD 

<RDbUFR.$Rl,<wRPLDR* 

= $R4 


OACo 

0000 

OAbC 






OACo 

0054 






002062 

0AC9 

0781 

FA9A 


b 1 OF 

IONAK 


002U63 

OACp 

F3C0 

FA8B 


LNJ 

$B7 .SIQNAK 


002U64 

OACO 

8000 

0AA6 


lu 

<WRPTSK t<WRPWTK 



OACF 

0000 

OABD 





002065 

UADI 

0781 

FA92 


blOF 

IONAK 


002066 

OAOp 

F3C0 

FD16 


LNJ 

$B71IODELY 

DELAY 

002067 

UAD5 

0F60 

0000 


RDINX b 

<RETURN 

EXIT 

002066 





# 



002069 





* COMPARE WRAPPED BACK DATA = DATA 

SENT 

002U70 





* 



002U71 

0AD7 

DF60 

0At6 


COmPAR ST b 

$B5 * <CMPARX* 1 


^ 00207c 

0AD9 

CF44 

ooot 


STR 

$R4*$64.RANGE 


f . \ 002073 

OAOb 

D380 

06DF 


LNJ 

$65 »<CKRNGE 

CK RANGE 

| 002074 

OAOD 

0380 

0705 


LNJ 

$B5 »<CKOFRG 

CK GEESE f-RANgE 

1 002075 

OADF 

9B80 

1791 


LAb 

$bl»<WRTBFR 


002076 

OAt 1 

0380 

0786 


LNJ 

$B5.<CMPAkE 

COMPARt BYTES 

002077 

OAt 3 

0380 

07F4 


LNJ 

$B5*<ERRTST 

ANY ERROR? 

002078 

OAt 5 

0F60 

0000 


CMPARX b 

<RETURN 

EXIT 
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00207V 
002080 
002081 
002082 
002088 
002084 
002085 
002086 
002087 
002088 
002089 
002090 
002091 
002092 
002098 
002094 
002095 
002096 
002097 
002U96 
002099 
002100 
002101 
002102 
002108 
002104 
002105 
002106 
002107 
002108 
002109 
002110 
002111 
002112 


002113 

002114 

002115 

002116 

002117 

002116 


002119 

002120 

002121 

002122 

002123 

002124 

002125 

002126 

002127 

002126 

002129 

002130 

002131 

002132 

002133 

002134 

002135 

002136 

002137 

002138 

002139 

002140 

002141 

002142 

002143 
002144 
002145 
002146 
002 UT 
002146 
002149 
002150 
002151 
002152 
002153 
002154 
002155 
002156 
002157 
002156 
002159 
002160 
002161 

002162 

002163 

002164 

002165 

002166 

002167 

002168 

002169 

002170 

002171 

002172 

002173 

002174 

002175 

002176 


************************* 

* 1.0. TEST * 

* * 
************************* 

* TEST 1.0. INSTRUCTION ON PORT 

* CHECK ANSWER IS VALID. STORE 



0AE7 




1DTEST 

EUU 

s 

0AE7 

0380 

0366 




LNU 

SB5 * <IN 1TZ 

GAE9 

D3C0 

FD3D 




ENJ 

$85 *SETEST 

0AE6 

D380 

04E2 




LNJ 

$B5 *<GETID 

OAED 

6U23 





CMV 

$R6.sX»23» 

oaee 

0900 



T 


BE 

>*$b 

OAEF 

F380 

0850 




LNj 

$67,<ERR0R 

OAF 1 

D380 

04F4 



SB 

LNJ 

SB5* <SETPRM 

OAF 3 

7D30 





CMV 

$R7**X*30» 

0AF4 

9680 

0b06 




LAB 

SB1* <CART1Q 

OAFo 

0900 



T 


BE 

>*$C 

OAF 7 

7D31 





CMV 

$R7 *sX • 31 * 

OAFd 

9B80 

0614 




LAB 

SB1*<CART1F 

OAFA 

097C 



T 


BE 

> + $C 

OAFo 

7D32 





CMV 

SR7 »sX•32 • 

OAFC 

9B80 

OblC 




LAB 

SBl*<CART20 

OAFE 

097C 



T 


BE 

> + $C 

GAFF 

7D33 





CMV 

$R7 »~X * 33 * 

0600 

9680 

OB25 




LAB 

$B1.<CARTZF 

ObO<i 

097C 



T 


BE 

> + $C 

0603 

F 380 

0850 




LNJ 

$67,<ERR0R 

0605 

9680 

0634 




LAb 

SB!*<MS1DNG 

0607 

D360 

0436 



SC 

LNJ 

$B5t<ZVTC 

0b09 

OF 80 

0636 




6 

<STAT ST 

0606 

3*130 

3054 

5049 


CARTiO 

TEXT 

•IOOTPI CART JNEYS • 

QbOE 

2043 

4152 

5420 






4F 4E 

4C59 

2400 





0614 

3130 

3054 

5049 


CART 1F 

TEXT 

•IOOTPI CART+FJX$* 

0617 

2043 

4152 

542B 






4649 

5824 






061C 

3230 

3054 

5049 


CART 20 

TEXT 

•200TPI CART JNLYS» 

061 r 

2043 

4152 

5420 






4F4E 

4C59 

2400 





0625 

3230 

3054 

5049 


CART2F 

TEXT 

»200TPI CART + F JX$• 

0628 

2043 

4152 

5426 






4649 

5824 






062U 

0753 

5441 

5254 


MSUPWR 

TEXT 

Z•07•♦•START D3 • * 

0630 

2044 

5220 






0632 

2030 

2C24 



SPINO 

TEXT 

* 0*$* 

Ob3<t 

494E 

5641 

4C49 


MSIDNG 

Text 

•INVALID I.D.S* 

063 7 

4420 

492E 

442E 






ASSIGNED 

IN 


INITIALIZE SUBSYSTEM 
READ I.D. 

MEDIUM PEKFQRmNCE DISC CNTRLLR 

SET PARAMETER-LIMITS IN PORT-TABLE 
iootpi cartridge Only 

100TPI CARTRIDGE 6 FIXED DISC 
200TPI CARTRIDGE OnLY 
200TP1 CARTRIDGE 6 FIXED DISC 

PRINT DEVICE-IYPE 


2400 


0B36 


* 

* 

STATST 


ATTENTION 6 STATUS TEST 
EuU $ 

* 

*E0Q b <RSTORE IF NOT 


FIRST PASS ON THIS SPNDLE 


OB 36 

D3C0 

FCE6 



ENJ 

$B5 tSETEST 


063U 

F 844 

0000 



LDR 

$R7 * $64.PORTNj 

PUT PQRT-NUMbuR 

063 F 

F A80 

Od32 



SRM 

$R7»<SPINO,sX*0003* 

IN PRINTOUT 

0641 

0003 





Qb4^ 

9B80 

Ob2U 



LAb 

$BI* <M6UPWR 

POWER-UP DRIVfc 

0644 

D380 

0436 



LNJ 

$65 *<ZVTC 
$65♦OPWAIT 

0646 

D3C0 

F8A6 



LNJ 

SOLICIT, THEN WA 

0648 

A800 

OZif 



LDR 

$R2»<RSTUS 

064A 

A644 

0010 



XUR 

SR2 «$B4.PORTCH 


0B4C 

8044 

0006 


SA 

IQ 

$B4.STATUS.*$R2 

READ STATUS WgRQ 

064E 

064F 

0052 

07FD 




61UF 

>-$A 

0650 

F3C0 

FC99 



LNJ 

$B7«IODELY 

DELAY 

0652 

D870 

COOO 



LDR 

$R5,sz*x:ooo» 

DEV-RDY 6 ATTn 

Gb54 

D944 

0006 



CMR 

SR5t$64.STATUS 

0656 

0900 


T 


be 

> + $6 


0657 

D380 

05D0 



LNJ 

$B5t<STSDMP 


0B59 

0FE2 




6 

>STATST 


0B5A 

8044 

0006 


SB 

lu 

SB4.STATUS » = $R2 

READ STATUS WuRD 

065C 

0052 






0B5D 

07FD 




61 OF 

>-Sb 


065E 

F3C0 

FC86 



END 

Sb7 *IODELY 


0660 

D844 

0006 


SC 

LDR 

$R5*$B4.STATUS 


0662 

D 970 

8000 



CMR 

SR5|=Z*8O00» 

<R5TORE 

normal STATUS 

0664 

0900 

Q86A 



BE 

0666 

DB60 

066A 



LAB 

$B5 *<RSTORE 


0668 

0F80 

05D0 



b 

<STSUMP ' 






* 

BASIC FUNCTIONAL TESTS ********************* 





* 

RECALIBRATE * 



QB6A 

D3C0 

FCBC 


KSTQRE LNJ 

SB5.SETEST 


0B6C. 

D380 

03BB 


LNJ 

$B5,<INITZ 

INITIALIZE SU 0 SYSTEM 

0b6t 

9680 

0823 


LAB 

3,B1.<MSDRVE 

0670 

9F80 

0813 


STB 

$61,<MSGRU 

SET ORU MSCjE 

0b72 

A600 

0277 


LDR 

$R2 * <WTASK 

0b74 

A644 

0010 


XUR 

$R2 *SB4 # P0RTCH 


0676 

0678 

F3C0 

8000 

F9E0 

0295 



58aa«««2 

TASK - RECALIoRATE 

0B7A 

0052 






0676 

0781 

F9E8 


BIOF 

ionak 


067Q 

067F 

8744 

8744 

0001 

0002 


CL 

CL 

SB4.CYLN0 

SB4.TRKNQ 

S04.SECTR 


0681 

8744 

0003 


CL 


0683 

0685 

8744 

8744 

0004 

0005 


a 

SB4.PLATER 
SB4.MINCYL 


068 7 

8744 

0006 


CL 

SB4.MINTRK 


0689 

8744 

0008 


CL 

SB4.MAXTRK 


0B86 

8AC4 

0008 


INC 

SB4.MAXTRK 


068D 

D844 

OOOA 


LDR 

$R5,$04.DISCID 


068F 

5D32 



CMV 

$R5*sX»32« 


0B90 

0200 


T 

BL 

>♦$0 

10Q-TP1 

0691 

9870 

0197 


LDR 

$Ri,*X»Q197* 

(407) 

0693 

0F80 


T 

B 

>*$C 

0694 

9870 

OOCB 


SB LDR 

SRIt»X•OOCB* 

(203) 
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002177 

0b9o 

9P 44 

0007 

$C 

STR 

$R 1 * $64# MAXCYu 



00217b 




* 





002179 

0b9b 

0380 

0843 


LnJ 

$65 *cHOUSKP 


CLEAR SUBROUTiNE S/bE»S 

002180 

0b9 A 

C870 

OlEO 


LOK 

$R4,=480 



002181 

0b9C 

9B80 

2515 


LAb 

$61♦<MAST 24 


REINITIALIZE DIAGNOSTIC 

002 i8e 

Qb9 L 

AB80 

2335 


LAb 

$B2 * <0R1N24 


RECORD FOR COMPARES 

002183 

OuAO 

U3C0 

FbF 6 


LNJ 

$B5*MGVEWD 


DIAG-REC-1 > DIAg-REC-3 

002 104 




4- 



-4 


002185 




* 

FORMAT-WR1 TE ON HEAD-0 

4 


00218b 




4- 



-4 


002187 




4 

THIS IS The 

FIRST ATTEMPT 

TO XFER DATA TO PAK. 

002188 

ObAz 

03C0 

FC84 


LNJ 

$B5♦SETEST 


SET TEST ADDReSS 

002189 

ObA4 

1C17 



LOV 

$R1,=X»17* 


24-SEC TORS 

002190 

0bA5 

9F44 

0011 


S1 R 

$R1,$64.SCTRMK 



002191 

0 BA7 

0380 

04A2 


LNJ 

$65 * <FCWD 


FORM CONFG wOs 

002192 

Ob A9 

8700 

1791 


Cl 

<WRIBFR 



002193 

ObAb 

8700 

1792 


CL 

<WR 1BFR+1 



0U2194 

ObAl) 

8700 

1793 


CL 

<WR TBFR + 2 



002195 

ObAF 

8700 

1794 


CL 

<WRTBFR+3 


SET WRTBFRsOO 00 Qo 00 

002196 

Obbi 

0380 

04CA 


LNJ 

$65«<WRTCWD 


WRT CONFG WOS 

002197 

0bB3 

4C08 



LDV 

$R4,=X»08* 


RANGE = 2 ID 

002198 

Obb4 

0380 

0394 


LNJ 

$b5 * <WIOLD 



002199 

Obbb 

(-800 

0297 


LOR 

$R7,<FMT 



002200 

Obbb 

0380 

03 A3 


LNJ 

$b5,<WRTASK 


WRT 1 k£C* 256 -BYTe 

002201 

ObbA 

0380 

054B 


LNJ 

$B5* <CKERR 



002202 

ObbC 

0380 

0 7 F 4 


LNJ 

$B5♦ <ERRTST 



002203 




4- 



-4 


002209 




4 

DIAGNOSTIC FORMAT READ 

4 


002205 




4— 



-4 


002206 




4 

DATA = ALL 

2 ERoS 



002207 

Obbt 

03CQ 

FC68 


LNJ 

$65,SETEST 


SET TEST ADDReSS 

002208 

ObCO 

0380 

04CA 


LNJ 

$b5,<WRTCWD 


WRT CNFG WDS 

002209 

0 bC2 

C870 

0133 


LOR 

$R4,=X«0133» 


RNGE 1-StCTOk 

002210 

ObC4 

0380 

037b 


LNJ 

$B5 *<RIOLD 



002211 

ObCo 

F 800 

02A5 


LOR 

$R7 ,<FD1AG 



002212 

ObCb 

0380 

03A3 


LNJ 

$b5, < WRT ASK 


TASK - FMT DIAGNOSTIC READ 

002213 

ObCA 

0380 

054b 


LNJ 

$B5,<CKERR 


CK TIHEOUT ,STaTUS*END-RNGE*CNFG-WDS 

002214 

Oboe 

9B80 

2515 


LAB 

$B1,<MAST24 



002215 

obce 

0380 

0788 


LNJ 

$B5 , <CMPARE 



00221 b 

0600 

0380 

07 F 4 


LNJ 

$65 *<ERRTST 



002217 




4~ 



-4 


0022 18 




4 

FORMAT READ lb 1-RtC 

4 


002219 




4- 



-4 


002220 

ObD2 

03CO 

FC54 


LNJ 

$B5,SETEST 


SET TEST ADDRESS 

002221 

0bP4 

0380 

04CA 


LNJ 

$65 * < WRTCWD 



00222 ^ 

ObDb 

4 CO 4 



LUV 

$R4,=X»04» 


RNGE 

002223 

ObO 7 

0380 

0376 


LNJ 

$B5 , <R I OLD 



002224 

0609 

F800 

02 A1 


LOR 

$R7,<R0ID 



002225 

obOb 

0380 

03 A3 


LNJ 

$65 , < wk I ASK 


TASK - RD ID 

002226 

0600 

0380 

054B 


LNJ 

$65 *<CKERR 


CK nMtOUT,5T*TUS»END-Rr*G£.CNFG-Wt>S 

002227 

ObOF 

4C04 



LOV 

$R4,=X»04« 


RNGE 

002228 

ObtO 

9080 

02 AA 


LAB 

$B1*<ZEROS 


ZEROS 

002229 

OdE2 

0380 

0788 


LNJ 

$B5 * <CMPARE 



002230 

0bt4 

0380 

07F4 


LNJ 

$65,<ERRTST 



002231 




4- 



-4 


GQ2232 




4 

FORMAT-RtAD 1-IO+OATA 

4 


002233 




4- 



— 4 V — 


002234 

06E6 

03C0 

FC40 


LNJ 

$65 * SETEST 


SET TEST ADDReSS 

002235 

OBtb 

0380 

04CA 


LNJ 

$65 * <WRTCWD 


WRT CNFG WDS 

002236 

ObEA 

C870 

0104 


LOR 

$R4,=X*0104» 


RANGE 

002237 

GbtC 

0380 

037b 


LNJ 

$65 *<RIOLD 



002238 

OBEE 

F800 

0297 


LOR 

$R 7 f <FMT 



002239 

ObFO 

0380 

03A3 


LNJ 

$b5 , <WRTA5K 


FORMAT-RtAD 1 ID+DATA 

002240 

0BF2 

0380 

054b 


LNJ 

$B5 *<CKERR 


CK TIMtOUT,STATUS , END-RNGE * CNFG-WDS 

002241 

0BF4 

9680 

02 AA 


LAB 

$B1 1 <2ER0S 


ZEROS 

002^42 

0BF6 

0380 

0788 


LNJ 

$b5,<CMPARE 



002243 

06F8 

0380 

07F4 


LNJ 

$B5,<ERRTST 



002244 




4- 



-4 


002245 




4 

DIAGNOSTIC 

FORMAT WRITE 

4 


00224b 




4 

CREATE CHECK-BYTE ERROR 

4 


002247 




4- 



— 4 V — 


002248 

obfa 

O3C0 

FC2C 


LNJ 

$B5 « SETEST 


SET TEST ADDRESS 

002249 

OBFC 

0380 

04CA 


LNJ 

$65 ,<WRTCWD 


wrt-cnfg-wds 

002250 

OBFE 

8700 

1791 


CL 

<WRTBFR 



002251 

OCOO 

F870 

FFFF 


LOR 

$R7 » 54 1 FFF F * 



002252 

0 C02 

F FOO 

1792 


STR 

$R7 , <WRT6FR +1 



002253 

0C04 

F F 00 

2337 


STR 

$R7,<0RIN2442 


SB FIELD 

002254 

0 C06 

4C04 



LOV 

$R4,=X*04» 


RANGE 

002255 

0C0 7 

0380 

0394 


LNJ 

$65 * <WIOLD 



002256 

0C09 

F800 

02A5 


LOR 

$R7,<F0IAG 



002257 

OCOb 

0380 

03A3 


LNJ 

$65,<WRTASK 


DIAG-WKT SCTk-0 

002258 

OCOO 

0380 

054B 


LNJ 

$B5 ♦ <CKERR 


CK 7 IMEQUT * STATUS t END-RNGE , CNFG-WDS 

002259 

0 C 0 F 

V38Q 

U7F4 


LNJ 

$B5T,<tRRTST 



002260 




4 — 



-4 


002261 




4 

DIAG-RO VERIFY ERROR IS 

4 


002262 




4 

WRITTEN ON DISC 

4 


002263 




4- 



-4 V — 


002264 

OCli 

D3C0 

FC15 


LNJ 

$B5,SETEST 


SET TEST ADDRESS 

002265 

0C13 

0380 

04CA 


LNJ 

$B5 , < WRT CWD 


WRT CNFG WDS 

002266 

0C15 

4C0A 



LOV 

$R4,*X*QA» 


RANGE 

002267 

0C16 

D380 

037B 


LNJ 

$B5 »<RIOLD 



002268 

0C18 

F800 

02A5 


LOR 

$R7»<F01 AG 



002269 

QUA 

0380 

03A3 


LNJ 

$B5 * <WRT ASK 


DIAG-FMT-RD 

002270 

ouc 

0380 

0546 


LNJ 

$B5,<CKERk 


CK TIMEOUT♦STATUStEND-RNGE*CNFG-WDS 

002271 

0C1E 

9B80 

2335 


LAB 

$Bl, <DR1N24 



002272 

0C20 

0380 

0788 


LNJ 

$B5,<CMPARE 



002273 

0C22 

0380 

07F4 


LNJ 

$B5 ,<ERRTST 



002274 




4 — 



-4 


002275 




4 

FORMAT-READ 

LOOK FOR RD-ERR* 


002276 




4- 



-4V- 


002277 

0C24 

03C0 

FC02 


LNJ 

$B5,SETEST 


SET TEST ADDReSS 

002278 

0C26 

0380 

04CA 


LNJ 

$B5, <WRTCWD 


WRT CNFG WDS 

002279 

0C28 

C670 

0104 


LOR 

$R4,sX*0104* 


RANGE 

002280 

0C2 A 

0380 

0376 


LNJ 

$B5 * <RIOLD 



002281 

0C2C 

F800 

0297 


LOR 

$R7 * <FMT 



002282 

0C2t 

0380 

03A3 


LNJ 

$B5 * <WRTASK 


FMT-RD ID+DaTA 

002283 

0C3O 

F870 

8800 


LOR 

$R7 * cZ • 8800 • 



002284 

0C32 

F FOO 

05C9 


STR 

$R7,<S8STUS 


EXPECT RD-ERR 

002285 

0C34 

0380 

0585 


LNJ 

$B5, <CKSTUS 


CHECK STATUS FOR RD-ERR 

002286 

0C36 

0380 

07F4 


LNJ 

$B5 ,<ERRTST 



002287 

0C38 

F870 

8000 


LOft 

$R7,sZ«8000* 



002288 

0C3A 

F FOO 

05C9 


STR 

$R7 *<SBSTUS 


CLEAR EXPECTED STATUS-ERROR 

002289 




4- 



-4 
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002290 





* 

FORMAT-WRT / DIAG-FMT-RD 




002291 





* 

TO CHECK 

THAT CHECK-BYTES 

* 



002292 





* 

ARE FORMED CORRECTLY 

* 


' ‘V 

002293 





*- 



-*V 

a. 


002294 





* 

lb DATA 

PATTERN s 0000 FFFF 

FFFF 

VI iJ, 

00229b 





* 





'% . 

002296 

UC3C 

D3CQ 

FBEA 



LNJ 

$B5 «SETEST 


SET TEi>T ADDRtSS 


002297 

0C3t 

F870 

FFFF 



LOR 

$R7 ts7»FFFF* 




002296 

0C4Q 

FFOO 

2338 , 



STR 

$R7 *<DRIN24 + 3 




002299 

QC42 

0360 

0C63 



LNJ 

$b5*<WCK 




002300 





* 






002301 





# 

CHG DATA 

PATERN s FFFF 0000 

FFFF 


002302 





# 






002303 

0C44 

D3C0 

FBE2 



LNJ 

$B5 *SETEST 




002304 

UC46 

8700 

1792 



CL 

<WR1BFR+l 




00230b 

0C48 

8700 

2337 



CL 

<DR1N24+2 




002306 

0C4A 

F 870 

FFFF 



LOR 

$R7 * =2 * FFFF• 




00230/ 

UC4C 

FFOO 

1791 



STR 

*R7,<WRTBFR 




002306 

0C.4E 

FFOO 

2336 



STR 

$R7 »<0RIN24+ 1 




002309 

0C50 

D380 

0C63 



LNJ 

$B5 * < WCK 




002310 





* 






00231 I 





* 

CHG DATA 

PATTERN s 8000 6000 

0000 


002312 





* 






002313 

0C52 

D3C0 

FB04 



LNJ 

$B5 *SETEST 




002314 

0C54 

6700 

2336 



CL 

<DR1N24+3 


CK-WD=0000 


00231b 

0C56 

F 870 

8000 



LOR 

$R7,=2*8000* 




002316 

0C58 

FFOO 

1791 



SR 

$R7 *<WRTBFR 




002317 

OCbA 

FFOO 

1792 



SR 

*R7,<WRT6FR«*-l 




002316 

UCbC 

FFOO 

2336 



SR 

$R7*<PRIN24+1 




002319 

0C5E 

FFOO 

2337 



SR 

$R7 *<DRIN24 + 2 




00232U 

QC60 

0360 

0C63 



LNJ 

$B5 * < WCK 




002321 

0C62 

QF80 


T 


B 

> + $A 




002322 





* 






002323 

0C63 

OFCO 

0020 


WCK STB 

$Bb,WCKX+l 




002324 

0C65 

0380 

04CA 



LNJ 

$B5 *<WRT CWO 


WRT CNFG WOS 


00232b 

0C67 

4C04 




LOV 

$R4*=X*04* 


RANGE 


002326 

0 C 68 

0380 

0394 



LNJ 

$B5*<WIQLD 




002327 

0 C 6 A 

F 600 

0297 



LOR 

$R7 * <FMT 




002326 

0 L 6 C 

0380 

03A3 



LNJ 

$B5 * <WRTASK 


FMT-WR \ 


002329 

0 C 6 L 

0380 

0S4b 



LNJ 

$B5*<CKERR 


CK TIMEOUT*STaTUS,END-RNGE»CNFG-WOS 


002330 

0L70 

0380 

Q7F 4 



LNJ 

$B5 *<ERRTST 




002331 

0 C 7 2 

0380 

04CA 



LNJ 

$B5*<WRTCW0 


WRT CNl-G WDS 


002332 

0C74 

4C06 




LOV 

$R4* = X • 08 * 


RANGE 


002333 

0 C 7 5 

0380 

037B 



LNJ 

$B5,<RIULD 




002334 

0C7 7 

F 800 

02 Ab 



LOR 

$R7 *<FDiAG 




00233b 

0C79 

0380 

03A3 



LNJ 

$B5 *<WRTA$K 


DIAG-FMT-RO 


002336 

0C7b 

0360 

054B 



LNJ 

SB5 *<CKERR 


CK TIMEOUT *STmTUS*eND-RNGE*CNFG-WDS 


002337 

UC7D 

9B80 

233b 



LAB 

SB1*<DRIN24 




002336 

0 C 7 F 

0380 

0788 



LNJ 

3 >Bb * <CMPARE 




002339 

0C81 

0380 

07 F 4 



LNJ 

$B5,<ERRTST 




002340 

0C83 

0F80 

0000 


WCKX B 

<RETURN 


EXIT 


002341 





*- 






002342 





* 

FORMAT- 

WHITE 24 SECTORS 

* 



002343 








-* V 



002344 

0 L 8 b 

03C0 

FbAl 


$A 

LNJ 

$Bb*SETEST 


SET TE 6 T ADDRtSS 


00234b 

0C8 7 

0380 

04CA 



LNJ 

$B5* <WRTCWD 


WRT CNFG WDS 


002346 

QC89 

4C60 




LOV 

5bR4 * = X •60 * 


RANGE 


002347 

0C6A 

0380 

0394 



LNJ 

$B5 *<WIOLD 




002346 

0 C 8 C 

0360 

Ob 1F 



LNJ 

$B5 *<LDWBFR 


SET UP ID IN wRT-BuFR 


002349 

0C8E 

F800 

0297 



LOR 

SR7 * <FMT 




002330 

0C9Q 

0380 

03A3 



LNJ 

$B5*<WRTASK 


FMT-Wk» 24 SECTORS 256 BYTE 


002351 

GC92 

0380 

Ob4b 



LNJ 

$B5t<CKERR 


CK TIMEOUT*STATUS*END-RNGE*CNFG-WOS 


002352 

0C94 

0380 

07F4 



LNJ 

$65 *<ERRTST 




002353 





*- 






002354 





* 

DIAGNOST1C-RD 20N0 REC 

* 



002355 








-* V 



002356 

0C96 

O3C0 

Fb90 



LNJ 

$B5 * SETEST 


SET TEbT AODRlSS 


002357 

QC98 

8 A60 

0393 



INC 

<gofill 

iNHIbIT RD-BUFR 33-FILL 


002356 

0C9A 

0380 

0464 



LNJ 

$65 *<RDBFIL 




002359 

0C9C 

0380 

04CA 



LNJ 

$65 *<WRTCWD 


WRT CNFG WDS 


002360 

0C9E 

4C04 




LOV 

$R4*=X* 04* 


RANGE 


002361 

QC 9 F 

0380 

037b 



LNJ 

$B5 *<RIOLD 




002362 

OCA 1 

F800 

02A1 



LOR 

$R7 *<RDID 




002363 

0CA3 

0360 

03A3 



LNJ 

$B5*<WRTASK 


FMT-RO-I 0 SECIOR-O 


002364 

QCA5 

C870 

013b 



LOR 

$R4,=X*Q13b* 


RANGE 


0U2365 

0CA7 

0380 

037 b 



LNJ 

$B5,<RIOLD 




002366 

0CA9 

F800 

02 9 F 



LOR 

$R7,<DJAG 




002 367 

OCAb 

0380 

03A3 



LNJ 

$B5 * CWKTASK 


OIAG-RO SECT0k-1 


002366 

OCAD 

0360 

054b 



LNJ 

$B5 § <CKERR 


CK TIMEOUT*STATUS*END-RNGE*CNFG-WDS 


002369 

OCAF 

9B80 

233b 



LAb 

$61* <DRIN24 


SB VALUE 


002370 

OCbl 

KOI 




LOV 

$R1,=X*01* 




002371 

0CB2 

9F0G 

2337 



STR 

$R1*<DRIN24+2 


SECTOR 


002372" 

UCB4 

9FGTJ 

2338 



STR 

$Rli<DRItf24>3 


CK-CHAR 


002373 

0Cb6 

8700 

2336 



CL 

<0R1N24 + 1 




002374 

OCBa 

0380 

0786 



LNJ 

$B5 *<CMPARE 




002375 

0C8A 

0380 

07F4 



LNJ 

$B5 * <ERHTST 




002376 

OCBC 

8700 

039 3 



CL 

<GOF1LL 




002377 








-* 



002376 





* 

FORMAT-READ ID 24 SECTORS 




002379 





*- 



-*v 



002380 

OCbE 

03C0 

FB 68 



LNJ 

$65 « SETEST 


SET TEST AOORlSS 


002361 

OCCO 

0380 

04CA 



LNJ 

$65 * < WRTCWO 


WRT CNFG WDS 


002382 

0CC2 

4C60 




LOV 

$R4 * = X *60 * 


RANGE 


002383 

0CC3 

0360 

037B 



LNJ 

$Bb i <RIOL0 




00238 *+ 

OCCb 

F 800 

02 A 1 



LOR 

$K7,<RDID 




002385 

0CC7 

0380 

03 A3 



LnJ 

$B5* <WRT ASK 


FORMAT-RO-IO ^4-SEcTORS 


002386 

0CC9 

0360 

Ob4B 



LNJ 

$b5*<CKERR 


CK TIMEOUT,STmTUS*END-RNGE*CNFG-WDS 


002387 

OCCb 

9B60 

1791 



LAb 

SB1*<toRT0FR 




002388 

OCCD 

0360 

0788 



LNJ 

$65 *<CMPARE 




002389 

OCCF 

0380 

07F4 



LNJ 

$B5 *<ERRTST 




002390 





*- 






002391 





* 

DIAGNOSTIC-READ SECTOR-23 

* 



002 39c 





*- 






002393 

0CD1 

03C0 

FB55 



LNJ 

$B5 *SETEST 


SET TEST ADDRtSS 


002394 

0CD3 

8AC0 

F 6 BF 



INC 

GOFILL 

INHIBIT RD-BUFR 33-FILL 


002395 

OCPb 

0360 

0464 



LNJ 

$B5*<RDBFIL 




002396 

GCD7 

0380 

04CA 



LNJ 

$B5,<wRTCWD 


WRT CNFG WDS 

£ . 

002397 

0CQ9 

4CbC 




LOV 

$R4,=X*5C* 


RANGE 

M 

002396 

OCDA 

0380 

037B 



LNJ 

$B5 9 <RIOLO 



- 1 

0Q2399 

GCDC 

F800 

02 A 1 



LOR 

$R 7 * <RD1D 




002400 

OCbL 

0380 

03 A3 



LNJ 

$65 *<WRTASK 


RO-I 0 SECTORS 0->22 


002401 

OCEO 

C870 

0120 



LOR 

$R4 * =X * 0120 * 


RANGE 


002402 

0CE2 

0380 

037b 



LnJ 

SB5 »<RIOLD 
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002403 

0CE4 

F800 

029F 



LOR 

$R7,<DIAG 



002404 

0CE6 

0380 

03 A3 



LN J 

$65 »<WRTASK 


DIAG-RD SECTOR-23 

002405 

OCtb 

0380 

054b 



LMJ 

$65,<CKERR 


CK TIMEOUT, STATUS, END-RNGEKNFG-WDS 

00240b 

ocea 

9680 

2335 



LAB 

$Bl,<DRIN24 


SB VALUE 

002407 

ocec 

1C i 7 




LDV 

17* 



00240b 

ocld 

9F00 

2337 



STR 

$R1,<DRIN24*2 


SECTOR 

00240V 

OC EF 

9F00 

2338 



STR 

$Rl,<DRIN24*3 


ck-chak 

002410 

OCF1 

0380 

0788 



LNJ 

$65»<CMPARE 



00241 1 

0LF3 

0380 

07F4 



LNJ 

$B5,<ERRTST 



002412 

OCF 5 

8700 

0393 



CL 

<GOF ILL 


SET RD-6FR 33 FILL 

002*13 





*-« 



-* 


002*14 





* 

FORMAT-READ 10 & DATA 

* 


002415 





* 

24-StCTORS 

* 


002416 





* 

(bYPASS IF NO MEMORY) 

* 


002*17 








-* 


00241b 

OCF 7 

03C0 

Fb2F 



LNJ 

$65 ,SLTLST 


SET TEST ADDRtSS 

002419 

OCF 9 

89b0 

02C5 



CM* 

<MLMS2E 


CK MEMORY SUc 

002420 

OCFd 

0900 


T 


bL 

> + $A 



002421 

OCFC 

0380 

04CA 



LNJ 

$65 ,<WRTCWD 


WRT CONFG-WDS 

002422 

OCFt 

C870 

1860 



LdR 

$R4 , = X • 1860• 


ID&DATA-24SLORS 

00*423 

0000 

0380 

037B 



LNJ 

$65 ,<RIQLD 



00242* 

000 * 

F800 

0297 



LDR 

$R7,<FMT 


RD ID+DATA 

002425 

0D04 

0380 

03A3 



LNJ 

$65, <WRT ASK 



002426 

0006 

0380 

054b 



LNJ 

$65 ,<CKERR 



002427 

ODOb 

0380 

07 F 4 



LNJ 

$65,<ERRTST 



00242b 

ObOA 

OF 00 

0000 

X 

3>A 

NOP 

<RDbUFR 



002429 





***** *****SEAKCH TESTS 

- 24 

SECTORS***** 

002*30 





*-. 



-* 


002431 





* 

SEARCH + 

READ SLCTOR-O 

* 


002*3^ 





*-■ 



-* V- 


002*33 

ObOC 

03C0 

Fb 1A 



LNJ 

$65,SLTLST 


SET TL5T ADDRtSS 

002434 

obot 

0380 

04A2 



LNJ 

$65 , <FCWD 


FORM CNFG-WDS 

002435 

ODio 

0380 

04CA 



LNJ 

$65 ,«WRTCwD 


WRT CNFG WDS 

002436 

Obi* 

C670 

0100 



LDR 

$R4 ,-X 1 0100• 


range 

002437 

Obi* 

0380 

037b 



LNJ 

$65 ,<RI0LD 



00243b 

Obl6 

F800 

029b 



LDR 

$R7,<DAT A 



00*439 

ODlb 

0380 

03A3 



LNJ 

$65,<WRTASK 


READ-DATA SECTOR-O 

002440 

OblA 

1C01 




LDV 

$Rl,;=X*01 * 



002441 

Oblo 

9F00 

0761 



STR 

$R1,<CW6F 


SET END-SCTR 

002442 

Oblb 

0380 

054b 



LNJ 

$65 * <CKERR 


CK TIMEOUT,STATU5,END-RNGE,CNFG-WDS 

002443 

Ob 1F 

9B80 

02 AA 



LAb 

$B1,<ZEROS 


ZEROS 

002444 

Ob*i 

0380 

0766 



LNJ 

$65,<CMPARE 



002445 

0D23 

0380 

07 F 4 



LNJ 

$B5 »<ERRTST 



002446 





*-. 



-* 


002447 





* 

SEARCH ♦ 

WRITE SECTOR-O 

* 


00244b 





*-. 



-*v- 


002449 

0025 

03C0 

FbOl 



LNJ 

$6^ * SLTLST 


SET TL5T ADDRlSS 

002450 

0D27 

0380 

04CA 



LNJ 

$65 ,<WRTCWD 


WRT CNFG WDS 

00*451 

00*9 

C870 

0108 



LDR 

$R4, sX * 0108 * 


RANGE 

002452 

Ob*b 

F 800 

02A8 



LDR 

$R7 , <ONES 



002453 

Ob*D 

0380 

0459 



LNJ 

$65,<WRTFIL 



002*54 

Ob2 F 

C87 0 

0100 



LDR 

$R4,=X*0100» 


RANGE 

002455 

0D31 

0380 

0394 



LNJ 

$65, <WIOLD 



002456 

0b33 

F 800 

029b 



LDR 

$R7 * <DATA 



002457 

0b35 

0380 

03 A3 



LNJ 

$b5 ,<WRTASK 


FMT-WRT SECTOk-O 

00245b 

Ob37 

0380 

054b 



LNJ 

$65 ,<CKEKR 


CK TIMEOUT,STaTOS,END-RNGE,CNFG-WDS 

002459 

0039 

0380 

07 F 4 



LNJ 

$65 ,<LRRTST 



002460 





*-. 



-* 


002461 





* 

FORMAT-READ StCTOR 0 ♦ 1 

* 


00246* 





*-. 



-*v- 


002*63 

0D3b 

03C0 

FAEB 



LNJ 

$B5,SLTLST 


SET TE5T ADDRtSS 

002*64 

0030 

0380 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WDS 

002465 

003 F 

C870 

0108 



LDR 

$R4,=X«0108» 


RANGE 

002*66 

0041 

0380 

037b 



LNJ 

$65 ,<RIOLD 



002*67 

0043 

F800 

0297 



LDR 

$R7, <FMT 


FMT-RD ID ♦ uATA 

002 *6b 

0045 

0380 

03A3 



LNJ 

$65, <WRT ASK 


SECTR-0 ♦ SECfR-l-iD 

002469 

0047 

6700 

0761 



CL 

<CWdF 



00*470 

0049 

0380 

054b 



LNJ 

$65 »<CKERR 


CK TIMEOUT, STATUS,END-RNGEKNFG-WDS 

002471 

004b 

8700 

1791 



CL 

<WRT6FR 



00247c 

0040 

8700 

1792 



CL 

<WR1BFR+l 



002473 

0D4F 

8700 

1813 



CL 

<WRT 6FR +130 



00*474 

0051 

1C01 




LDV 

$R1,=X•01 * 



002*75 

005* 

9F00 

1614 



STR 

$R1,<WRT6FH+131 


002476 

005* 

9880 

1791 



LAB 

$6l,<wRTbFK 



002477 

0056 

0380 

0788 



LNJ 

$65,cCMPARE 



00247b 

005b 

0380 

U7F4 



LNJ 

$65,<ERRTST 



002479 





* — 



->* 


002460 





* 

SEARCH+WRITE SECTOR-i 

* 


00*481 





*-. 



-*v- 


00*482 

005A 

03C0 

FACC 



LNJ 

$65 ,SLTLST 


SET TEST ADORlSS 

00*483 

0050 

1C01 




LDV 

$Rl,sX*01» 



002484 

0050 

9 F 44 

000 3 



STR 

$R1s$64.SLCTR 



U0'24g5~ 

- 00 5 F 

8 AD1 




INC 

= $R1 



00248b 

0060 

9F00 

0761 



STR 

$R1 * <CWBF 



002487 

006* 

0380 

04A2 



LNJ 

$65 ,<FCWD 


FORM CNFG WDS 

00248b 

0064 

0380 

04CA 



LNJ 

$b5,<WRTCWD 


WRT CNFG WOS 

002*89 

0066 

C87C 

0100 



LDR 

$R4 ,5=X*OiOO* 


RANGE 

002*90 

006 b 

F 870 

7101 



LDR 

$R7 , = Z * 7101 * 



002*91 

OObA 

0380 

0459 



LNJ 

$65 , <WRTFIL 


LOAD WKTBFR 

00*49* 

ObOC 

0360 

0394 



LNJ 

$65 ,<WIQLD 



002493 

OObL 

F800 

029b 



LDR 

$R7 ,<DATA 



002494 

0070 

0380 

03 A3 



LNJ 

$65,<WRTASK 


SCH-WRT SECTuR-1 

00*495 

007* 

0380 

054b 



LNJ 

$65,<CKERR 


CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 

00*496 

0074 

U380 

07F4 



LNJ 

$65 , <ERRT ST 



00*497 





*-. 



-* 


0Q2*9b 





* 

search ♦ 

READ SECTOR-i 

* 


002499 





*-. 



-* V — 


002500 

0076 

03C0 

FABO 



LNJ 

$b5 * SLTEST 


SET TEST ADDRtSS 

002501 

007b 

0380 

04CA 



LNJ 

$65 * <WRTCWD 


WRT CNFG WDS 

002502 

007A 

C870 

0100 



LDR 

$R4 »sX• 0100 • 


RANGE 

00*503 

0P7C 

0380 

037b 



LNJ 

$B5,<RI0LD 



00250* 

0D7b 

F 600 

029b 



LDR 

$R7 » <DATA 



00*505 

OObO 

0380 

03 A3 



LNJ 

$65 ,< WRTASK 


SCH-RO SECTOR-1 

002506 

008* 

0380 

054b 



LNJ 

$65 , <CKERR 


CK TIMEOUT,STATUS,END-RNGEKNFG-WDS 

00*507 

0084 

9680 

1791 



LAb 

$61 , <WRT6FR 



00250b 

0086 

0380 

0788 



LNJ 

$65 , <CMPANE 



002509 

0088 

0380 

07F4 



LNJ 

$65 ,<ERRT5T 



002510 





*-. 



-* 


00*511 





* 

SLAkCH+wR1TL SLC10R-17 

* 


002512 





*-. 



-*v- 


002513 

OObA 

O3C0 

FA9C 



LNJ 

$65,SLTLST 


SET TLbT ADDRtSS 

002514 

008C 

1 C 17 




LDV 

$Rl,sX«i?» 



002515 

obbb 

9 F44 

0003 



STR 

$R 1 , $64 • SLCTR 
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0025 lo 

0j8F 

6 AD 1 




INC 

= $R1 



002517 

0D9U 

9F00 

0761 



SIR 

$Rl,<CWbF 



002518 

0092 

D360 

04A2 



LfMj 

$B5»<F CWD 


FORM CNFG WOS 

002519 

0094 

D360 

U40A 



LiM J 

$b5,<WRTCwD 


WRT CNFG WPS 

002 520 

0096 

F670 

AA55 



LOR 

$R7 ,=2•AA55 1 



002521 

0096 

C870 

0100 



LOR 

$R4,5X*0100» 


RANGE 

002522 

009 A 

D380 

0459 



LNJ 

$65,<WRTFIL 


LOAD WRTbFR 

002525 

0090 

D360 

0394 



LNJ 

$65i<W1 OLD 



002524 

GD9E 

F 800 

029b 



LOR 

SR7 ,<DATA 



002525 

00A0 

P360 

03A3 



LNJ 

$65,<WRTASK 


SCH+WKl SCTR-J.7 

002526 

00A2 

P360 

054b 



LNJ 

$65 ,<CKLRR 


CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 

002527 

00A4 

D360 

07F4 



LNJ 

$b5,<ERRTST 



002526 








.* 


002529 





* 

SLAkCH+READ SECTORS 16+17* 


002530 








-* V- 


002531 

OOAb 

D3C0 

F ABO 



LNJ 

$65,SLTLST 


SET TEST ADDRESS 

002532 

00A6 

1C16 




LOV 

$R1,=;X»16* 



002533 

00A9 

9F 44 

0003 



SIR 

$R1»$64•SECTR 



002534 

OOAb 

D380 

04A2 



LNJ 

$B5 *<FCwD 


FORM CNFG WOS 

002535 

OOAO 

D380 

040A 



LNJ 

$65 ,<WRTCWP 


WRT CNFG WPS 

002536 

ODAF 

C870 

0200 



LOR 

$R4,=X»02G0* 


RANGE 

002537 

OObl 

D360 

037b 



LNJ 

$B5 ,<k I OLD 



002536 

0DB3 

F 600 

029B 



LOR 

$R7 *<OAT A 



002539 

00b5 

D360 

03 A3 



LfslJ 

$65,<WRTASK 


DATA-RD SECTORS 16*17 HEX 

002540 

ODb 7 

0380 

0546 



LNJ 

$65 * <CKLKR 


CK Timlout,status,end-Rnge,cnfg-wds 

002541 

00b9 

C670 

0100 



LOR 

$R4 * = X * 0100 1 



002542 

ODBb 

CF44 

0000 



STR 

$R4 * $B4•RANGE 



002543 

OObO 

9660 

U2AA 



LAB 

$61,<ZERGS 


ZEROS 

002544 

ODUF 

0360 

0788 



LNJ 

$B5,<CMRAR£ 


SCTR-16 s ZLRuS 

002545 

0001 

9b60 

1791 



LAB 

$B1,<WRTBFR 



00254b 

0003 

Ab60 

0000 

X 


LAB 

$62 *<RDBUFR 



002547 

0005 

ABC2 

0060 



LAB 

$62,$62,128 


SECTR-J.7 

002546 

0007 

9670 

0080 



LOR 

$R1,=X*0080» 



002549 

0009 

0380 

0784 



LNJ 

$65,<CMPARA 



002550 

OOCb 

D360 

07F4 



LNJ 

$65,<LRRTST 



002551 





*-- 



.* 


002554 





* 

SLARCh+WkiTE cLRO-FILL 

* 


002553 





*-- 



-*v- 


002 5 5*+ 

ODCu 

D3C0 

FA5 9 



LNJ 

$65,SLTLST 


SET TEST ADDRtSS 

002555 

ODCF 

1C04 




tov 

$R1,==X»04* 



002556 

0000 

9 F 44 

0003 



STR 

$R1,$64,SLCTR 



002557 

0004 

8 AD 1 




INC 

= $Ri 



002556 

0003 

9 FOG 

0761 



STR 

$R1,<CW6F 



002559 

0005 

0360 

04A2 



LNJ 

$b5,<FCwD 


FORM CNFG WOS 

002560 

0007 

P360 

04CA 



LNJ 

$65,<WRT CWO 


WRT CNFG WPS 

002561 

0009 

0670 

0100 



LOR 

$R4,?X*0100» 



002564 

000b 

F 670 

9999 



LOR 

$ R 7,-2*9999* 



002563 

0000 

0380 

0459 



LNJ 

$65,<WRTF1L 



002564 

OOOF 

4C50 




LOV 

$R4,=X»50» 


RANGE 

002565 

opEu 

0380 

0394 



LNJ 

$B5,<WI0LP 



002566 

0DE2 

F800 

0296 



LOR 

$R7,<OAT A 



002567 

00E4 

0360 

03A3 



LNJ 

$65,< WRTASK 


SCH+WRI w-2LRuFILL 

002 5b0 

0006 

0360 

054b 



LNJ 

$65,<CKLRR 


CK TIMtOUT,STATUS,END-RNUE.CNFU-WDS 

002569 

OOtb 

0360 

07F4 



LNJ 

$B5,<ERRT ST 



002570 





*— 



.* 


002571 





* 

search 

+ ROAD 

* 


002572 





*— 



•*v- 


002573 

000a 

0300 

FA3C 



LNJ 

$65,SLTLST 


SET TEST AOOReSS 

002574 

OPEC 

0360 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WPS 

002575 

ODEe 

C.870 

0100 



LOR 

$R4,=X * 0100 1 


RANGE 

002576 

OOF 0 

0360 

037b 



LNJ 

$65,<R1OLO 



002577 

00F2 

F800 

0296 



LOR 

$R7,<OATA 



00257b 

00F4 

0380 

03A3 



LNJ 

$65,<WRTASK 


read-data 

002579 

OPF'6 

0360 

054b 



LNJ 

$65,<CKLRR 


CK TIMEOUT,STATUS,END-RNGE*CNFG-WDS 

002580 

OOF 6 

9B80 

17 B9 



LAB 

$61,<wRTBFR+40 



002581 

OOF A 

8757 




CL 

s$R7 



002582 

OOFb 

C870 

OOBO 



LOR 

$R4,=:X»00b0» 



002583 

OOFO 

0360 

0471 



LNJ 

$B5,<FILL I T 



002584 

OOFF 

9BC0 

0991 



Lad 

$B1,wRTbFR 



002585 

otoi 

0380 

0788 



LNJ 

$b5,<CMPARE 



002586 

0E03 

0380 

07F4 



LNJ 

$B5,<LRRT ST 



002587 





* — 



- Ik 


00258b 





* 

SEARCH 6 

WRITl Z-SLClORS* 


002589 





* 

(SECTORS 

2 + 3) 

* 


002590 





* — 



** V- 


002591 

0E06 

0300 

FA2 1 



LNJ 

$B5,SLTLST 


SET TEST ADDRESS 

002592 

OtO 7 

1C02 




LOV 

$R1,=X»02• 



002593 

0E08 

9F44 

0003 



STR 

$Rl,$b4.SLCTR 



002594 

OfcOA 

1002 




AOV 

$R1,=X * 02 • 



002595 

OEOb 

9F00 

0761 



STR 

$R1,<CW6F 



002596 

OEOO 

0380 

04A2 



LNJ 

$B5,<FCWD 


FORM CNFG WOS 

002597 

OLOF 

0380 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WOS 

002596 

0E11 

067(3 

0200 



LDR 

$R4,~=X»0200» 


RANGE 

002599 

OE13 

9B80 

1791 



LAB 

$61,<WRTBFR 



002600 

OE15 

F 8 70 

0102 



LOR 

$R7,-X»ai02* 



002b01 

OE 17 

0380 

047F 



LNJ 

$65,<INCBFR 



002b02 

OE 19 

0360 

0394 



LNJ 

$65,<wIOLD 



002603 

GElb 

F800 

029B 



LOR 

$R 7,<OAT A 



002b0*+ 

■ 0E10 

0380 

03 A3 



LNJ 

$65,<WRTASK 


SCH+WRI SECTORS 2 + 3 r l( 

002605 

OE 1F 

0380 

0546 



LNJ 

$65,<CKtRR 


CK TIMEOUT,STATUS,END-RNGE+CNFG-WDS 

002606 

0E21 

0360 

07F4 



LNJ 

$B5,<ERRTST 



002607 








-* 


002606 





* 

SLARCH6KLA0 3-SLCTGRS 

* 


002609 





* 

(SECTORS 2* 3* 4 ) 

* 


002610 





*-. 



-* V- 


002611 

0E23 

0300 

FA03 



LNJ 

$65,SLTLST 


SET TEST ADORcSS 

002612 

0E25 

0380 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WDS 

002613 

0027 

9844 

0003 



LOR 

$K1,$64,SLCTR 



002614 

0029 

1E03 




ADV 

$R1,=X»03» 



002615 

Ot2 A 

9FOO 

0761 



STR 

$R1,<CWBF 



002616 

0E2C 

0870 

0080 



LOR 

$R4,=X*0080» 



002617 

0020 

9B80 

0000 

X 


LAB 

$61,<ROBUFR 



002616 

0030 

AB80 

1891 



LAb 

$62,<WRTBFR+256 


002619 

0032 

0380 

0497 



LnJ 

$65,<MQVEWD 



002620 

0034 

0870 

0300 



LOR 

$R4,=X*0300* 


RANGE 

002621 

0036 

0380 

037B 



LNJ 

$65,<R1OLO 



002622 

0038 

F800 

029B 



LDR 

$R7,<OAT A 



002623 

003A 

0380 

03A3 



LNJ 

$65,<WRTASK 


S+R SECTORS 2,3,4 ^ ^ lf 

002624 

003C 

0380 

0546 



LNJ 

$65,<CKERR 


CK TIMtOUT,STATUS,ENO-RNGE,CNFG-WDS 

002625 

0030 

9680 

1791 



LAb 

$B1,<WRTBFR 



002626 

0040 

0360 

0788 



LNJ 

$65,<CMPARE 



002627 

0042 

0380 

07 F 4 



LNJ 

$65,<LRRT ST 



002628 





*** ***** 

HEAD TESTS ***** 















riTLt CDUSl+»RtV 7• 


PAGE 


27 


002629 

UQ2o3G 

U02o3l 

00lt>3c 


002667 

002666 

002669 

002670 

002671 

002672 

002673 

002674 

002675 

002676 

002677 

002676 


002679 
002680 
002681 
002682 
002683 
002684 
002665 
002686 
002687 
002686 
002689 
002690 
00^691 
002692 
002693 
002o94 
002693 
002696 
002697 
002696 
002699 
002700 
002701 
002702 
002703 
002704 
002705 
002706 
002707 
002706 
002709 
002710 
002711 
002712 
002713 
002714 
002715 
002716 
002717 
002718 
002719 
002720 
002721 
002722 
002723 
002724 
002725 
002726 
002727 
002728 
002729 
002730 
002731 
002732 
002733 
002734 
002735 
002736 
002737 
002738 
002739 


Ot79 
0 l7d 
O t 7t> 
0E7F 

otai 

Ot 8-3 
Ot 84 
0686 
0t8o 
OLob 


F844 OOOA 
7601 0079 
9680 0 t 88 
D3CQ F5B6 
D3C0 F551 
0900 

88C4 OOOA 
UF81 0066 
4F46 2054 4F20 
5553 4520 4649 
5845 4424 


* heads are numbered "o m and »i 

* AND »2” ANd "3” FUR THE FIXED MED 

* ALL TESTS 10 THIS POINT WERE ON 

* 


" FOR I HE REMOVABLE MEDIA 
~ IA • 

HEAD-0* 


002633 

064*+ 

D3C0 

FbCF 


LNJ 

$65 * LDPARM 

0U2634 







0U2o35 




* 

HtAD -1 

FORMaT-WRITE 

002636 




#— 



002637 

0L46 

D3C0 

F 9t0 


Limj 

$65 * SETEST 

002636 

0E46 

IC01 



LDV 

$Rl* = X* 01 • 

002639 

0E49 

9F 44 

0002 


SIR 

$R 1 * $64,TRKNO 

002640 

0E4B 

D360 

04A2 


LNJ 

$65i< F CWD 

002641 

0 t4D 

D380 

04CA 


LNJ 

$65 * < WRTCWD 

00264E 

0E4F 

8700 

1791 


CL 

<W‘R 1 bFR 

002643 

0E5 1 

F 8 4 4 

OOOD 


LDR 

$R7»$B4.WCwb 

002644 

OL53 

FFOO 

0761 


STR 

$R7 + <CWbF 

002645 

Ot 55 

FFOO 

1792 


STR 

$R7 »<WRTBFK +1 

002646 

Ot57 

4C04 



LDV 

$R4♦ = X * 04 * 

00264 I 

0L56 

D380 

0394 


LNJ 

$b5 + < WI OLD 

002646 

0L5A 

F 800 

0297 


LDR 

$R7,<FMT 

002649 

Ot 5C 

D380 

U3A3 


LNJ 

$65 * <WRT ASK 

002650 

Ot 5c 

D380 

0546 


LNJ 

$B5 »<CKERR 

002651 

0 t 60 

0380 

07F4 


LNJ 

$B5* <ERRTST 

002652 




*-- 



002653 




* 

HEAD-1 

FORMAT-RtAD 

002654 







002655 

0 t 6 <i 

D3C0 

F9C4 


LNJ 

$B5,SETEST 

002656 

OLo^ 

D380 

04CA 


LNJ 

$B5 »< WR TCWD 

002657 

Ct 66 

C870 

0104 


LDR 

$R4,=X«01G4* 

002656 

0 t 66 

D380 

037b 


LNJ 

$65,<RI0LD 

002659 

016A 

F 800 

0297 


LDR 

$R7,<FMT 

002660 

0E6C 

D 380 

03 A3 


LNJ 

$b5»<WRTASK 

002661 

Ot 6 t 

D380 

054B 


LimJ 

$B5,<CKERR 

002662 

0E70 

1C04 



LDV 

$R1*sX»04» 

002663 

Ot 7 1 

9F44 

OOOE 


STR 

$R1*$B4.RANGE 

002664 

Ot 73 

9B80 

1791 


LAB 

$61 + <WKT 6 FR 

U02665 

Ot 75 

D380 

0788 


LNJ 

$B5 * cCMPARt 

002666 

017 7 

D380 

07F4 


LNJ 

$B5 + <ERKTST 


* 

* 

* V- 


*V- 


* CHECK IF FIXED-DISC AVAILABLE 


MSFXWT 


LDR 

bEVN 

LAb 

LNJ 

LNJ 

bL 

DEC 

f EXT 


$R7 * $64.D1 SCID 
$R7 t TRKVRY 
$B1»<MSFXWT 
$B5 *2VTC 
$B5 9 YORN 
>*$P 

$B4 * DlSC ID 
TRKVRY 

•OK TO USE FIXED$• 


0E9U 

8AC4 

0004 

$P 

INC 

$64.PLATER 




* 

HtAD-2 

FORMAT-WRITE 

0L92 

D3C0 

F994 


LNJ 

$65+ SETEST 

0194 

8744 

0002 


CL 

$64.TRKNO 

0E96 

D380 

04A2 


LNJ 

$65 *<FCWD 

0E9b 

D380 

04C A 


LIMJ 

$65»<WRTCWD 

0E9 a 

8740 

08F6 


CL 

WRTbFR 

0 L9C 

8CC4 

OOOC 


LD1 

$64.WCWA 

0L9t 

8D40 

F8C1 


SOI 

CWAF 

01 AO 

FFOO 

1792 


SIR 

$R7 * < wRT 6 FR+1 

OLA 2 

4CU4 



LDV 

$R4 * sX * 04 * 

Ot A3 

0380 

0394 


LNJ 

$65 » <WIOLD 

0EA5 

F800 

0299 


LDR 

$R7,<FMTSEK 

01A 7 

D380 

03A3 


Limj 

$65,<WRTASK 

Ot A9 

D380 

0546 


Limj 

$B5,<CKERR 

OtAb 

D380 

07 F4 


LNJ 

$65 + <ERRT ST 




* 

HEAD-2 

FORMAT-READ 

OtAU 

D3C0 

F979 


LNJ 

$65 * SETEST 

Ot AF 

D380 

04CA 


LNJ 

$65 * < WRT CWD 

otbl 

C870 

0104 


LDR 

$R4 * = X * 0104 * 

Otb$ 

D380 

0376 


LNJ 

$65 * <R I OLD 

0tb5 

F 800 

0297 


LDR 

$R7 + <FMT 

0 tb7 

D380 

03A3 


LNJ 

$65 * < WRT ASK 

0tb9 

D380 

0546 


Lnj 

$B5 * <CKERR 

otbb 

1C04 



LDV 

$R1 * = X' 04 * 

OtbC 

9F44 

OOOE 


STR 

$R1*$64.RANGE 

OtBE 

968*0 

1791 


LAB 

$B1,<WRTBFR 

otco 

D380 

0788 


LNJ 

$B5,<CMPARE 

0EC2 

D380 

07F4 


LNJ 

$B5 +<ERRTST 




* 

HEAD-3 

FORMAT-WRITE 

0tC4 

D3C0 

F962 


LNJ 

$65 + SETEST 

OtCo 

KOI 



LDV 

$R1♦=X • 01 * 

0EC7 

9F44 

0002 


STR 

$R1+$64.TRKNO 

0EC9 

D380 

04A2 


LNJ 

$65 *<FCWD 

OECb 

D380 

04CA 


LNJ 

$65 f <WRTCWD 

OtCD 

F 844 

GOOD 


LDR 

$R7 » $B4 * WCWB 

OECF 

FF40 

F891 


STR 

SR7KWBF 

OtDi 

FF40 

08C0 


STR 

$R7,WRTBFR*1 

0tD3 

4C04 



LDV 

$R4,=X»04* 

0ED4 

D380 

0394 


LNJ 

LDR 

$65 *<WlOLD 

0 ED 6 

F800 

0297 


$R7,<FMT 

0 tD 8 

D380 

03A3 


LIMJ 

$B5 * <WRTASK 

OtDA 

0380 

0546 


LNJ 

$B5,<CKERR 

OtDC 

0380 

07F4 


LNJ 

$65* <ERRTST 




* 

Ximwmi 

HEAD-3 

FORMAT-READ 

oede 

D3C0 

F948 


LNJ 

$B5 * SETEST 

0EE0 

D380 

04CA 


LNJ 

$65i<WRT CWD 

0EE2 

C870 

0104 


LDR 

$R4,=X»0104« 

0EE4 

D380 

0376 


LNJ 

LDR 

$B5 *<RIOLD 

OEEb 

F800 

0297 


$R7 * <FMT 

0EE8 

D380 

03A3 


LNJ 

$65 * <WRTASK 

OEEA 

D380 

0546 


LNJ 

$65 *<CKERR 

OEEC 

1C04 



LDV 

$R1t=X 1 04 • 


* 

* 

*V- 


* 

# 

*v- 


* 

* 

*V- 


# 

# 

*V- 


SET TEST ADDRfcSS 
TRK= 1 

FORM CNFG WDS 
WRT CNFG WDS 


RANGE 


FMT-WRI 

CK TIMEOUT* STaTUS* END-RNGEKNFG-WDS 


SET TEBT ADDRtSS 
WRT CNFG WDS 
RANGE 


FMT-RD StCTOR-Q 

CK TIMtOUT,STATUS*END-RMOE»CNFG-WDS 


OUTPUT QUES? 
WAIT FOR THE 


OPERATOR TO m Y” OR "OTHER" 


SET TtST ADDRESS 
TRK-Q 

FORM CNFG WDS 
WRT CNFG WDS 


SET SB CNFG-WoS 
RANGE 


FMT-WRT 

CK TIMtQUT *STaTUS»eND-RNGE»CNFG-WDS 


SET TEi>T ADDRESS 
WRT CNFG WDS 
RANGE 


FMT-RD StCTOR-O 

CK TIMtQUT * STATUS*END-RNGE*CNFG-WDS 


SET TEST ADDRESS 
TRKsl 

FORM CNFG WDS 
WRT CNFG WDS 


RANGE 

FMT-WRT 

CK TIMEOUT *STaTUS tEND-RNGE*CNFG-WDS 


SET TEST ADDRESS 
WRT CNFG WDS 
RANGE 


FMT-RD SECTQR-Q 

CK TIMEOUT * STATUS * END-RNGE t CNFG-WDS 















TITLE C0US1,*REV 7* PAGE 28 


002740 

otto 

9 F 4 A 

QQOt 


STR 

$R1,SB4*RANGE 



002741 

OfcfcF 

9080 

1791 


LAB 

SBi,<WRTBFR 



002742 

OtFl 

0380 

0786 


LNJ 

$B5,<CMPARE 



002743 

002744 

0EF3 

0380 

07 F 4 

# 

LNJ 

SB5 * <ERRTST 



002743 

0EF5 

8 744 

0004 

TRKVRY CL 

$64.PLATER 



002 74t> 
002747 
002748 

01F 7 

8744 

0002 


CL 

SB4.TRKN0 






* 

HtAp-0 

FORMAT-READ 

# 


002749 









0tF9 

03CG 

F92D 


LNJ 

$B5 fSETEST 


SET TEST ADOR&SS 

FORM CNFO WOS 

002750 

002751 

OEFb 

0 360 

04A2 


LNJ 

$B5,<FCWD 


002752 

OtFO 

0360 

04CA 


LNJ 

$B5,<WRTCwD 


WRT CNFG WOS, 

002753 

OtF F 

8CC4 

oooc 


LDI 

$B4.WCWA 


002754 

OF 01 

8D00 

0760 


SD1 

<CWAF 



002755 

OF 03 

C870 

0104 


LOR 

$R4,^X*0104» 


RANGE 

002756 

0F03 

0380 

037B 


LNJ 

$65,<RIOLD 


002757 

OF 0 7 

F 600 

0299 


LOR 

$R7 ,<FMTSEK 



002756 

OF 09 

0360 

03A3 


LNJ 

$B5, <WRT ASK 


FMT-RO SECTOR-O 

002759 

OF Ob 

0380 

034B 


LNJ 

$B5 * <CKERR 


CK timequt,sthtus,end-rnge,cnfg-wds 

002760 

OF 00 

4C04 



LDV 

$R4,=X»04* 


002761 

OF Ot 

CF44 

OOOE 


STR 

$R4,$64.RANGE 



002762 

OF 10 

6740 

0880 


CL 

wRTbFR 



002 /63 

OF 12 

8740 

087F 


CL 

wrtbfr+i 



002 /64 

0 F 1 4 

9B60 

1791 


LAB 

$Bl,<WRTbFR 



002765 

OF 16 

0380 

0788 


LNJ 

SB5, <CMPARt 



002766 

002767 

OF 16 

0380 

07 F 4 


LNJ 

$B5,<ERRTST 






* 

FitAO-1 

FORMAT-REAO 



002 /6b 

002769 








OF lM 

8AC4 

0002 


INC 

$B4.TRKNQ 



002770 

002771 

OF 1C 

03C0 

F90A 


LNJ 

$B5 * SETE5T 


SET TEBT ADDRESS 

002772 

OF 11 

0360 

04A2 


LNJ 

LNJ 

$B5 *<FCWO 


FORM CNFG WOS 

WRT CNFG WOS 

002773 

OF 20 

0360 

04CA 


$B5*<WRTCWD 


002774 

0F2 4 

F844 

GOOD 


LOR 

$R7 ,$B4.WCWB 


002775 

0F24 

F F 40 

0660 


STR 

$R7, WRTBFR +1 



002776 

OF 26 

FF40 

F 83A 


STR 

$R7,CWBF 



002777 

OF 26 

C670 

0104 


LOR 

$R4,sX*0104» 


RANGE 

002 77o 

OF 4 A 

0360 

037b 


LNJ 

$B5 ,<RIOLD 


002779 

OF 2C 

F 800 

0297 


LOR 

$R7 * <FMT 



002780 

0F2l 

0360 

03 A3 


LNJ 

*B5,<WRTASK 


FMT-RO SECTOR-O 

002781 

OF 30 

0360 

054b 


LnJ 

$B5,<CKERR 


CK TIMEOUTfSTMTOS,END-RNGEfCNFG-WOS 

002782 

OF 32 

1C04 



LOV 

$R1*-X 1 04 f 


002783 

0 F 3 3 

9F44 

ooot 


STR 

$Ri*$64.RANGE 



002 784 

OF 33 

9680 

1791 


LAB 

SB 1,<WRTBFR 



002785 

OF 37 

0360 

0788 


LNJ 

SB5, <CMPARE 



002786 

OF 39 

0380 

07 F 4 


LNJ 

SB5 ,<ERRTST 



002787 


F844 


* 

CHECK IF 

FIXE0*DISC AVAILABLE 


002786 

OF 3b 

000 A 


LOR 

$R7,$b4.DISCI0 



002789 

OF 30 

7601 

0063 


BEVN 

$R7,WRTPRT 


FIXED-OISC? 

002790 

002791 

002794 

0 F 3 F 

6 AC4 

0004 


INC 

SB4.PLATER 






# 

HEAP-2 

FORMAT-REAO 

# 


002793 








0F4 1 

03C0 

F 8E5 


LNJ 

SB5«StTEST 

’ ~ v — 

SET TEbT ADDRESS 

002794 

002793 

OF 43 

8744 

0002 


CL 

$B4.TRKNO 


002796 

0F43 

0360 

04A2 


LNJ 

$B5 *<FCWO 


FORM CNFG WOS 

002797 

0F47 

0380 

04CA 


LNJ 

$B5,<WRTCWD 


WRT CNFG WPS 

002796 

OF 49 

6CC4 

oooc 


LOI 

$84.WCWA 


002799 

0F4b 

8000 

0760 


SOI 

<CWAF 



002600 

0F40 

F F 40 

0844 


STR 

$R7,WRTBFR*l 



002601 

OF 4F 

C870 

0104 


LOR 

$R4,sX*0I04» 


RANGE 

002602 

OF 51 

0380 

037B 


LNJ 

SB5 $<RIOLD 


002603 

OF 53 

F 800 

0299 


LOR 

SR7 ,<FMTSEK 



002604 

0 F 5 5 

0380 

03 A3 


LNJ 

SB5,<WRTASK 


FMT-RP SECTOR-O 

002605 

0 F 5 7 

0380 

054b 


LNJ 

SB5»<CKEKR 


CK TIMEOUT,STmTUS,END-RNGE *CNFG-WpS 

002606 

0F59 

1C04 



LOV 

$R1, = X * 04• 


002607 

OF 5 a 

9 F44 

ooot 


STR 

$RI,$64.RANGE 



002608 

OF 5L 

9660 

1791 


LAB 

SB1,<WKT6FR 



002609 

0F5L 

0380 

0788 


LNJ 

SB5, <CMPARE 



002610 

002611 

002612 

OF 60 

0360 

07 F 4 

ft* 

LNJ 

SB5, <ERRTST 






* 

HtAb-3 

FORMAT-READ 

* 


002613 

002614 




ft* 





OF 62 

8AC4 

0002 


INC 

$B4.TRKNO 

■*Y* 


002615 

OF 6 a 

03C0 

F8C2 


LNJ 

SB5,StTEST 


SET TEST AODRlSS 

002616 

OF 66 

0360 

04A2 


LNJ 

SB5,<FCWO 


FORM CNFG WOS 

002617 

OF 66 

0380 

04CA 


LNJ 

$65,<WRTCWO 


WRT CNFG WOS 

002 6 1 o 

OF 6A 

F 844 

GOOD 


LOR 

$R7 » $B4* WCWB 


002619 

0F6C 

FF40 

F7F4 


SIR 

$R7, CWBF 



002620 

OF 61 

F F 4 0 

0823 


STR 

$R7,WRTBFR+1 



002621 

OF 70 

C670 

0104 


LOR 

SR4 , sX 1 0104• 


RANGE 

D02622 

“OF 72 

0360 

037B 


LNJ 

$B5 ,<RIOLD 


002623 

OF 74 

F 600 

0297 


LOR 

SR7, <FMT 



002624 

OF 76 

0360 

03 A3 


LNJ 

$B5,<WRTASK 


FMT-RO SECTOR-Q 

002625 

OF 76 

0380 

054b 


LNJ 

Sb5 , <CKERR 


CK TIMEOUT,STaTUStEND-RNGE,CNFG-WPS 

002626 

OF 7A 

1C04 



LOV 

SRI ,-X'04» 


002627 

OF 7b 

9F44 

ooot 


STR 

SRI,$B4.RANGE 



002626 

OF 70 

9B80 

1791 


LAB 

Sbl ,<WRTbFR 



002629 

OF 7F 

0380 

0786 


LNJ 

$B5,<CMPARE 



002630 

002631 

OF 6 1 

0380 

07F4 

* 

LNJ 

$B5,<ERRT ST 



002632 

002633 




* 

# 

tBYPASS SWITCH TESTS IF NJT FIRST PASS ON SAME SPINpLE 

002634 

002633 




ft* 








# 

WRITt-PRUTECT TEST 

* 


002636 




# 

(FlXtO MtOIA) 

* 


002637 

002836 




ft* 





0F63 

D3C0 

F8A3 


LNJ 

SB5 , SETEST 


SET TEST ADDRESS 

002639 

0F83 

9B80 

1015 


LAb 

$B i ,<MSPRT F 


FIXEO-OJbC 

002640 

OF 67 

0360 

043B 


LNJ 

$B5 »<2VTC 


002641 

0 F 6 9 

9B60 

1007 


LAB 

$B1,<MSPR0T 



002644 

0F6b 

0380 

043b 


LNJ 

SB5,<2VTC 

Sb5,QPWAIT 



002643 

OF 80 

03CO 

F45F 


LNJ 


SOUCIT, THEN h AIT for OPERATOR response 
FORM CNFCi WDS 

004644 

OF 8F 

0380 

04A2 


LNJ 

SB5,<FCWD 


002645 

OF 91 

0360 

04CA 


LNJ 

SB5,<WRTCWO 


WRT CNFG WPS 

002646 

0F9 3 

4C06 



LOV 

SR4, sX * 08 * 


RANGE 

002647 

OF 94 

CF 40 

F767 


STR 

$R4,RNGLFT 


SET END-OF-RANGE 

002646 

OF 96 

0360 

0394 


LNJ 

$B5,<WI0LD 


002849 

OF 96 

F 800 

0297 


LOR 

$R7,<FMT 



002650 

OF 9A 

0380 

03A3 


LNJ 

$B5,<WRTASK 


FMT-WRI 

002651 

OF 9C 

F870 

9000 


LOR 

SR7 »;?2 *9000 * 


002654 

OF 9t 

F F 0 0 

05C9 


STR 

SR7 » <SBSTUS 


EXPECT PROTECF-BIT 























TITLE CDUbl,•REV 7» 
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002853 

08 AO 

0380 

0585 



LNJ 

$65»<CKSTOS 



002854 

08 A2 

0380 

0608 



LNJ 

$65 ,<CKKNGE 



*. 002355 

08A4 

0330 

0784 



LNJ 

$65,<ERRTST 



0023 56 





* 





■ 002357 

G8A6 

9BB0 

loot 



LAb 

$61,<MSPMIT 


PERMIT 

m • 002356 

OFAb 

0380 

043b 



LNJ 

$65,<ZVTC 



0023 59 

08 AA 

03C0 

8 44 2 



LNJ 

a»B5»0PWAIT 


SOLI Cl 1» THEN WAIT FOR OPERATOR RESPONSE 

002660 

0 h AC, 

8870 

8000 



LOR 

$K7,5Z»80Q0* 



002361 

08 At 

8 800 

0509 



STR 

$R7 , <SBST US 


CLEAR PROTECT-BIT 

002362 

08 bO 

6740 

F74b 



CL 

RNGLFT 


CLEAR EXPECTEu RANGE 

002363 





* 

CHECK IF 

BACK IN PERMIT 



002364 





* 





002365 

0862 

03CO 

8874 



LNJ 

$65,SETEST 



002366 

0804 

0330 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WOS 

00236? 

08bo 

4C08 




LOV 

$R4,=X»06» 


RANGE 

002363 

08 B7 

0380 

0394 



LNJ 

$65,<WI0LD 



002369 

08b9 

F800 

0297 



LOR 

$R7 , <FMT 



002370 

08 bb 

0380 

03A3 



LNJ 

$65,<WRTASK 


FMT-WRl 

002371 

08 bO 

0360 

054b 



LNJ 

$B5 ,<CKERR 


CK TIMEOUT,STATUS»END-RNGE*CNFG-WOS 

002372 

0868 

D380 

07F4 



LNJ 

$65 t<ERRTST 



002373 





* 





002374 


OFC1 



WRTPRT bull 

$ 



002375 

08 C1 

8744 

u004 



CL 

$64.PLATER 



002376 

08C3 

8744 

0002 



CL 

$64.TRKNO 



002377 





*- 



-* 


002373 





* 

WRITt-PRuTtCT TLST 

* 


002379 





* 

(RtMOVLAbLt MEDIA) 

* 


002380 





*- 



-*v- 


002381 

08C5 

03C.0 

8361 



LNJ 

$B5,SETEST 


SET TEST AObkcSS 

002382 

08 C / 

9B6G 

1004 



LAb 

$BI* <MSPRT C 


REMOVEABLE-CAkT 

002383 

08C9 

0380 

043b 



LNJ 

$65 * <ZVTC 


PUT IN PKQTECi 

002384 

08 Cb 

03CO 

8421 



LNJ 

$65,0PWAIT 


SOLICIT, THEN WAIT FOR OPERATOR RESPONSE 

002385 

08CD 

0380 

04A2 



LNJ 

$65,<8CWD 


FORM CNFG WOS 

002886 

08CF 

0380 

04CA 



LNJ 

$B5, <WR TCWD 


WRT CNFG WOS 

002387 

0801 

6CC4 

0000 



LOl 

$B4.wCWA 



002383 

08D3 

6000 

0760 



sol 

<CWAF 



002389 

0805 

4C06 




LOV 

$R4,sX•08♦ 


RANGE 

002390 

0806 

C8 40 

F 72 5 



STR 

$K4,RNGLFT 



002391 

0803 

0360 

0394 



LNJ 

$B5 , <W I OLD 



0G2b92 

08 OA 

F 600 

0299 



LOR 

$R7 ,<8MTSEK 



002393 

080t 

0380 

03A3 



LNJ 

$65,<WRTASK 


FMT-WRI 

002394 

OFOt 

8670 

9000 



LOR 

*-i'90Q0' 



002395 

08 to 

8F00 

05C9 



STR 

$R7»<SbSTUS 


EXPECT PROTECT-BIT 

002396 

0812 

0360 

0585 



LNJ 

$b5 ,<CKSTUS 



002o97 

08 t4 

0380 

0608 



LNJ 

$B5 ,<CKKNGE 



002393 

08 to 

0380 

07 F 4 



LNJ 

$B5 ,<ERKTST 



002399 





* 





002900 

08t3 

9b80 

loot 



LAB 

$Bi,<MSPMIT 


PERMIT 

002901 

08 tA 

0380 

0436 



LNJ 

$65 * <2VTC 



002902 

08 EC 

03C0 

F400 



LNJ 

$65 tOPWAIT 


solicit, then wait for operator response 

002903 

08 tt 

F 870 

6000 



LOR 

$R7,=Z«8000» 



002904 

08 FO 

8800 

05C9 



STR 

$R7 *<SBSTUS 


CLEAR PROTECT-BIT 

002905 

0 F 8 z 

8 740 

F709 



Cl 

RNGLFT 



002906 





* 

CHECK bACK 

IN PERMIT 



002907 

0884 

03CD 

F 832 



LNJ 

$b5,StTEST 



^ 002903 

OFFo 

0380 

040A 



LNJ 

$65 * <WRTCWD 


WRT CNFG WOS 

| 002909 

0883 

4C03 




LOV 

$R4,=X•08• 


RANGE 

ft 002910 

08F9 

0330 

0394 



LNJ 

$65 * <W I OLD 



\ 002911- 

08 8b 

8600 

0297 



LOR 

$R7,<FMT 



002912 

0880 

0380 

03A3 



LNJ 

$65 * < WRTASK 


FMT-WRl 

002913 

0888 

0380 

054B 



LNJ 

$B5,<CKERR 


CK TIMEOUT,STATUS,ENO-RNGE,CNFG-Wt>S 

002914 

1001 

0380 

07F4 



LNJ 

$B5,<ERkTST 



002915 

1003 

0895 




b 

>NFXPCT 



002916 

1004 

4341 

5254 

OOOA 

MSPRTC TtXT 

•CART* ,z«odqa» 



002917 

luO/ 

0753 

4554 

2050 

MSPKOT TtXT 

z 1 07• , •SET PROTECT,$ 1 



100a 

5248 

5445 

4354 








2C24 








002913 

loot 

0753 

4554 

2050 

MSPMIT TlXT 

z * 07 » , •SET PtRMIT ,$» 



ion 

4552 

4049 

542C 








2400 








002919 

1015 

4649 

5845 

4424 

MSPRT8 TtXT 

* FIXEOS * 



00292U 





** 

***** CHECK-dYTE error 

TESTS 

***** 

002921 

iOlo 

0380 

0514 


N8XPCT LNJ 

$65,<LDPARM 



002922 





*- 



-* 


002923 





* 

DIAGNOSTIC 

FORMAT WRITE 

* 


002924 





* 

CREATE CHECK-BYTE ERROR 

* 


002925 





*- 



-* V- 


002926 

101A 

O3C0 

F600 



LNJ 

$B5 * SETEST 


SET TEbT ADDReSS 

002927 

luxe 

0380 

U4A2 



LNJ 

$65,<FCWD 



002923 

lOit 

0380 

04CA 



LNJ 

$65,<WRTCWD 


WRT CNFG WOS 

002929 

1020 

8CC4 

OOOC 



LOI 

$B4* WCWA 



002930 

1022 

6D00 

0760 



SOI 

<CWA8 



' 002931 

1024 

0380 

OSTF 



"LNJ 

$65",<LDWb8K 


str UP I• D. Tn wrtbfr 

002932 

1026 

8670 

FFFF 



LOR 

$R7,=Z»FFF8» 



002933 

1023 

8800 

1792 



STR 

$R7 ,<WRTbFR+I 



002934 

102 A 

8 800 

2337 



STR 

$R7 , <DR IN24 + 2 



002935 

1 02C 

4060 




LOV 

$R4,-X*60» 


range 

002936 

1020 

0380 

0394 



LNJ 

$65,<WI0L0 



002937 

1028 

8600 

02A5 



LOR 

$R7,<8DIA6 



00293b 

1031 

0380 

03 A3 



LNJ 

$65 , <WRT ASK 


DIAG-WKT SCTk-0 

002939 

1033 

0380 

054b 



LNJ 

$65 * <CKERR 


CK TIMEOUT,STATUS,END-RNGE,CNFG-WOS 

002^40 

1035 

0360 

07F4 



LNJ 

$65 *<ERRT5T 



002941 





*- 



-* 


00294z 





* 

FORMAT-REAU 

LOOK FOR RO-ERR* 


002943 





*- 



—* V— 


002944 

1037 

0300 

87LF 



LNJ 

$65,SETEST 


SET TE6T AODRtSS 

002945 

1039 

0380 

040A 



LNJ 

$65, <WRTCWD 


WRT CNFG WOS 

002946 

103b 

0870 

0104 



LOR 

$R4,sX»Q104» 


RANGE 

002947 

1030 

0380 

0376 



LNJ 

$65 * <RI OLD 



002943 

1038 

8800 

0297 



LOR 

$R7 * <FMT 



002949 

1041 

0380 

03 A3 



LNJ 

$65,<WRTASK 


FMT-RO ID+DaT A 

002950 

1043 

8870 

8800 



LOR 

$R7*5Z«8800* 



002951 

1045 

8800 

05C9 



STR 

$R7 *<S6ST0S 


EXPECT RO-ERR 

002952 

1047 

0360 

0585 



LNJ 

$65 ,<CKSTUS 



002953 

1049 

0360 

07 F 4 



LNJ 

$65 ,<ERRTST 



002954 





*- 



-* 


002955 





* 

SEARCH ♦ 

READ 

* 


002956 





* 

LOOK FOR 

READ-ERROR AND 

* 


1 002957 





* 

UNsoctssFUL search error 

* 


I 002953 





*- 



-*v- 


002V59 

104u 

0300 

8 7Db 



LNJ 

$65 9 SETEST 


SET TEST ADDRESS 

002960 

1040 

0360 

04A2 



LNJ 

$65 ,<FCWD 


FORM CNFG WOS 

002961 

1048 

0380 

04CA 



LNJ 

$65* <WRTCWD 


WRT CNFG WOS 











1IILL CDOSi, * RtV 7* 
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002962 

1051 

4C04 



LDV 

SR4,5X»04* 


RANGE 


002963 

1052 

0380 

U37B 


LNJ 

$65 t<RIQLD 




002964 

1054 

P 800 

0296 


LDR 

$R7 ,<DATA 




002966 

106o 

0380 

03A3 


CNJ 

$65,<WKTASK 


SCH-RO SECTOR W ERR 

jTv\ 

00296o 

105b 

P 870 

6900 


LOR 

$R7 , = Z * 8900 * 



m * \ 

002967 

106 A 

P P 00 

05C9 


SIR 

$R7,<S65TUS 


EXPECT RD-ERR ♦ UNSUCESS-SCH 


00296o 

1050 

0380 

U585 


LNJ 

$85,<CKSTUS 




002969 

1051. 

0380 

07F4 


LNJ 

$65 ,<ERRTST 




002970 

iOoO 

P 870 

6000 


LOR 

$R7, = Z'8000 1 




002971 

10b2 

P POO 

05C9 


SIR 

$R7»<S6STUS 


CLEAR EXPECTED ERR-BITS 


002972 




*- 



-* 



002976 




* 

7 16-H0l)E READ-UD.+DATA 

* 



002 9 7*+ 




*~ 



-*v- 



002976 

1 Oo4 

03CO 

F7C2 


LNJ 

$65 , SETEST 


SET TEST ADDRtSS 


00297b 

1 06b 

0380 

04A2 


LNJ 

$65, <FCWD 


FORM CNFG WDS 


002977 

106b 

0380 

04CA 


LNJ 

$b5, <WRTCWD 


WRT CNFG WDS 


00297b 

106A 

C87u 

0410 


LOR 

$R4,=X*0410< 


RANGE 


0029 79 

1060 

0380 

037 b 


LNJ 

$B5 *<RIOLD 




002980 

1060 

F 800 

0297 


LOR 

$R7,<FMT 




002981 

1070 

P 670 

0060 


XOR 

$R7 , = X'0080' 


SET 61 1-8 IGNORE Rp-ERR <716) 


002982 

10 72 

0380 

03 A3 


LNJ 

$65 ,<WRTASK 


FMT-RD 


002983 

1074 

0380 

054b 


LNJ 

$b5,<CKERR 


CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 


002984 

1U 76 

0380 

07F4 


LNJ 

$65 * <ERRTST 




002986 




* 






002986 




***** BASIC TESTS FOR 576-BYTE 

SECTOR ***** 


002987 

107 b 

0380 

0514 


LNJ 

$65 ,<LDPARM 


SET PARAMETERS TO TRK-0,SCTR-0 


00298b 




*-■ 



-* 



002989 




* 

format write - 1 RECORD 

* 



002990 




*- 



-* 



002991 

107m 

O3C0 

F7AC 


LNJ 

$65 * SETEST 


SET TEST ADDRtSS 


002992 

1070 

icob 



LOV 

$R1 * sX'Ob• 


12-SECTORS 


002993 

10 70 

9P 44 

0011 


str 

$K1,$B4.SCTRMX 




002994 

1Q7P 

0380 

04A2 


LNJ 

$65,<PCWD 


FORM CUNPG WDj 


002996 

iOb 1 

8700 

1791 


CL 

<WRTbPR 




00299b 

1083 

8700 

1792 


CL 

<WR JbP R+1 




002997 

1085 

038 0 

04CA 


LNJ 

$65 ,<WRTCWD 


WRT CONFG WDS 


002998 

1U8 7 

4C04 



LOV 

$R4,-X*04* 


RANGE s 1 ID 


002999 

1088 

0380 

0394 


LNJ 

$B5 , <W IOLD 




003000 

108 A 

F 800 

0296 


LOR 

$R7 *<FMT12 




003001 

1080 

0380 

03A3 


LNJ 

$65 ,<wRTASK 


WRT 1 REC, 57b-BYTE 


003002 

1081 

0360 

0546 


LNJ 

$B5*<CKfcRR 




003O03 

1090 

0380 

07P 4 


LNJ 

$65,<ERRT ST 




003004 




*-• 



-* 



003006 




* 

DIAGNOSTIC FORMAT READ 

* 



003006 




*-. 



-* 



003007 




* 

DATA = 

ALL ZtROS 




003008 

1094 

03 CO 

P 794 


LNJ 

$65,SETEST 


SET TEST ADDRtSS 


003009 

1094 

0380 

04CA 


LNJ 

$b5,<WRTCWD 


WRT CNFG WDS 


003010 

1096 

C870 

0279 


LDR 

$R4 , = X•0279 * 


RNGt 1-StCTOR 


0030U 

1098 

0380 

0376 


LNJ 

$65 ,<kI OLD 




003012 

109A 

P 800 

02A6 


LDR 

$R7 ,<FDIA62 




003013 

1090 

0380 

03 A3 


LNJ 

$65,<wRTASK 


TASK - FMT DIAGNOSTIC READ 


003014 

1090 

0360 

054b 


LNJ 

$65,<CKERR 


CK TIMEOUT,STaTUS,END-RNGE,CNFG-WDS 


003016 

10A0 

9660 

2568 


LAB 

$61,<MAS112 




003016 

10A2 

0360 

0788 


LNJ 

$65,<CMPARE 




003017 

10A4 

0380 

U7F4 


LNJ 

$65,<ERKTST 



4 *v 

00301o 




* — 



-* 



003019 




* 

FORMAT 

RfcAO 10 1-REC 

* 



003020 




*-. 



-* 



003021 

10A6 

03C0 

F780 


LNJ 

$65,SETEST 


SET TEST ADDRtSS 


003022 

iOAd 

0360 

U4CA 


LNJ 

$65,<WRTCWD 




003023 

IOAa 

4C04 



LDV 

$R4,=X*04» 


RNGE 


003024 

lOAb 

0380 

0376 


LNJ 

$B5,<RIOLD 




003026 

IOAD 

P 8 0 0 

02A2 


LDR 

$R7,<R0ID12 




003026 

10AF 

0380 

03A3 


LNJ 

$B5,<WRT ASK 


TASK - RD ID 


003027 

1001 

0360 

0546 


LNJ 

$B5 ,<CKERR 


CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 


00302b 

10B3 

9B60 

02AA 


LAB 

$61,<ZEROS 


ZEROS 


003029 

10ti5 

0380 

0786 


LNJ 

$65,<CMPARE 




Q03O30 

1007 

0380 

07P4 


LNJ 

$65,<ERRTST 




003031 




*-. 



-* 



003032 




* 

FORMAT- 

■READ 1-iD+DATA 

* 



003033 




*-■ 



-*V- 



003034 

1009 

03C0 

F76D 


LNJ 

$65,SETEST 


SET TEST ADDRtSS 


003036 

1000 

0360 

04CA 


LNJ 

$65,<WRTCWD 


WRT CNFG WDS 


003036 

looo 

C870 

0244 


LDR 

$R4,*X*X>244» 


RANGE 


003037 

100F 

0380 

037b 


LNJ 

$65 *<RIOLD 




003038 

loci 

F800 

0296 


LDR 

$R7 *<PMT12 




003039 

1003 

0380 

03 A3 


LNJ 

$65,<WRTASK 


FORMAT-READ 1 ID+DATA 


003040 

10C5 

0380 

0546 


LNJ 

$65,<CKERR 


CK TIMtOUT,ST aTUS,END-RNGE,CNFG-WDS 


003041 

1007 

9B80 

02 AA 


LAB 

$61 ,<ZEROS 


ZEROS 


003042 

1009 

0380 

0786 


LNJ 

$65,<CMPARE 




003043 

100b 

0380 

07F4 


LNJ 

$65,<ERRT5T 




0030 4~4 




•nr-. 



-* 



003043 




* 

FORMAT- 

WRITE 12 SECTORS 

* 



003046 




*~ 



-* V- 



003047 

1000 

03C0 

r 7 59 


LNJ 

$65,SETEST 


SET TEST ADDRtSS 


00304b 

10CP 

0360 

04CA 


LimJ 

$65 ,<WRTCWD 


WRT CNFG WDS 


003049 

1001 

4C30 



ldv 

$R4,=X«3Q* 


range 


003050 

1002 

0360 

0394 


LNJ 

$65,<WIOLD 




003051 

1004 

0380 

051P 


LNJ 

$b5,<LDWbFR 


SET UP ID IN wRT-BUFR 


003052 

1006 

F800 

0298 


LDR 

$R7 »<FMT12 




003053 

100b 

0380 

03A3 


LNJ 

$65 * <WR T ASK 


FMT-WR I 12 SECTORS 576 BYTE 


003054 

l GOA 

0380 

0546 


LNJ 

$65,<CKERR 


CK TIMtOUT,STATUS,END-RNGE,CNFG-WDS 


003055 

1000 

0360 

07F4 


LNJ 

$65,<ERRTST 




003056 




*- 



-* 



003057 




* 

DIAONOSUC-KD 20ND REC. 

* 



00305b 




*- 



-* V— 



003059 

iODt 

D3C0 

F 746 


LNJ 

$65,SETEST 


SET TEST ADDRESS 


003060 

10E0 

8A60 

0393 


INC 

<GOPILL 

INHIBIT RD-BUPR 33-FILL 


003061 

1002 

0380 

0464 


LNj 

$65,<RD6PIL 




003062 

1004 

0380 

04CA 


LNJ 

$65,<WRTCWD 


WRT CNFG WDS 


003063 

1008 

4C04 



LDV 

$R4,sX«04* 


RANGE 


003064 

1007 

0380 

037b 


LNJ 

$65,<RI0LD 




003065 

1009 

F800 

02A2 


LDR 

$R7,<RDID12 




003066 

lOOo 

0380 

03 A3 


LNJ 

$65,<WRT ASK 


FMT-RD-ID SECJOR-O 


003067 

1000 

C670 

025b 


LDR 

$R4,=X»025B» 


range 


003068 

100F 

0380 

0376 


LNJ 

$B5,<RI0LD 




003069 

10F1 

F800 

02A0 


LDR 

$R7,<DlAG12 




003070 

10F3 

0380 

03A3 


LNJ 

$65,<WRTASK 


DIAG-RD SECTOk-1 

f 

003071 

10F 5 

0380 

0546 


LNJ 

$B5,<CKERR 


CK TIMtOUT,STATUS,END-RNGE,CNFG-WDS 

1 y 

003072 

10F7 

9B80 

23D8 


LAB 

$B1,<0RIN12 


SB VALUE 


003073 

lOP 9 

1C01 



LDV 

$R1,-X *0X f 




003074 

10FA 

9 POO 

23DA 


STR 

$R1,<DRIN12*2 


SECTOR 
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003093 


003116 
003117 
00311b 
003119 


003131 
003132 
003133 
003134 
003135 
003136 
003137 
003i3b 
003139 
003140 
003141 
003142 
003143 
003144 
003143 
003146 
003147 
00314b 
003149 
003150 
003151 
003152 
003153 
003154 
003155 
003156 
003T57 
00315b 
003159 
003160 
003161 
003162 
003163 
003164 
003165 
003166 
003167 
00316b 
003169 
003170 
003171 
003172 
003173 
003174 
003175 
003176 
003177 
00317b 
003179 
003160 
003181 
003182 
003183 
003184 
003185 
003186 
003187 


1152 
1154 
1156 
1158 
11 5A 
115C 
1 15t 
1160 
1161 
1163 
1165 
1167 
1169 


D3CO 

0360 

0360 

C870 

D380 

F800 

0380 

1C01 

9F00 

0360 

9680 

0380 

0360 


F604 
04A2 
04CA 
0240 
0376 
0290 
03 A3 

0761 

0546 

02AA 

0788 

07F4 


003075 

1 OF L 

9 F 00 

2306 

Sfk 

$kl ,<DRlNl 2+3 

003076 

l OF E 

0360 

0788 

LNJ 

$ 65 ,<CMPARL 

003077 

1100 

0360 

07 F 4 

LNJ 

$ 65 ,<ERRT ST 

00307 b 

1102 

6700 

0393 

CL 

<GUF 1 LL 

003079 




- - 


003080 




* FORMAJ-RlAO 

10 12 SECTURS 

003081 




*---«.- 


G 03 U 84 

1104 

D 3 C 0 

F 72 2 

LNJ 

$ 65 ,SETEST 

003083 

1106 

0380 

04 CA 

LNJ 

$ 65 ,<wRTCW 0 

003084 

110 b 

4 C 30 


LOV 

$R 4 ,=X* 3 Q» 

003085 

1109 

0380 

0376 

LNJ 

$ 65 ,<RIOLO 

003086 

1 1 U 6 

F 800 

02 A 2 

LOR 

$R 7 ,<RD 1012 

003087 

110 0 

0380 

03 A 3 

LNJ 

$ 65 ,<wRT ASk 

003088 

11 OF 

0360 

0546 

LNJ 

$b 5 ,<CKERK 

003089 

ini 

9 b 80 

1791 

LA 6 

$ 01 ,<WRTbFR 

003 U 9 U 

1113 

0380 

0788 

LNJ 

$ 65 ,<CMPARE 

003091 

003092 

1115 

0380 

07 F 4 

LNJ 

*---- 

$ 65 ,<ERRTST 


* 

* 

* V- 


CK-CHAK 


SET TEST ADDRESS 
WRT CNF6 WDS 
RANGE 


FORMAT-RD-ID i2-SECT0RS 
Ck TIMEOUT,SThTUSiEND-RN(jEKNFG-WDS 


DIAGNOSTIC-READ SECTOR-11 


003094 




— 


003095 

1117 

O3C0 

F 7 0 F 

LNJ 

$65,SLTEST 

003u96 

1119 

b ABO 

0393 

INC 

<GOFILL 

003097 

1116 

0380 

0464 

LNJ 

$65,<RD6FIL 

003096 

1110 

0360 

04CA 

LNJ 

$65,<WRT CWD 

003099 

11 1 F 

4C2C 


LDV 

$R4,=X*2C» 

U0310U 

li 20 

0360 

0376 

LNJ 

$65,<RI OLD 

003101 

1144 

F8C0 

02A2 

LOR 

$R7,<RDID12 

003102 

1144 

0380 

03 A3 

LNJ 

$65,<WRT ASk 

003103 

1146 

C870 

0260 

LOR 

$R4,=X»0260» 

003104 

112b 

0360 

037b 

LNJ 

$65,<R1 OLD 

003105 

1 1 4 A 

F 600 

02 AO 

LDR 

$R 7,<DIAG12 

003106 

114C 

0360 

03 A3 

LNJ 

$65,<WRTASk 

003107 

112E 

0360 

0546 

LNJ 

$65,<CKtRR 

00310b 

1130 

9660 

2308 

LA6 

$61,<DRIN12 

003109 

1134 

KOb 


LDV 

$R1,=X•06 1 

003110 

1133 

9F00 

23DA 

STR 

$R1,<DR1N12*2 

00311 1 

1135 

9F00 

2 3Db 

STR 

$R1,<DR1N12 + 3 

003114 

1137 

D3b0 

0788 

LNJ 

$65,<CMPARE 

003113 

1139 

0380 

07F4 

LNJ 

$65,<ERRTST 

003114 

003115 

1136 

6700 

0393 

CL 

*--- 

<G0F1LL 


SET TEST ADDRESS 
INHIttIT RD-bUFR 33-FILL 

WRT CNFG WDS 
RANGE 


RD-iD SECTORS 0->lo 
RANGE 


DIAG-RD SECTOR-11 

Ck TIMEQUT »STmTUS*END-RNOE»CNFG-WDS 
S6 VALUE 

SECTOR 

Ck-CHAK 


SET RD-BFR 33 FILL 


FORMAT-READ 10 6 DATA 
12 - SECTuRS 
(BYPASS IF imO MEMORY) 


00312U 

1130 

D3C0 

F6E9 



LNJ 

$65,SETEST 

SET TEST ADDRESS 

003121 

1 i 3F 

8980 

02C5 



CMZ 

<MEMSZE 

Ck MEMORY SIZl 

003122 

1141 

0900 


T 


6t 

> ♦ $ A 


003123 

1142 

0380 

04CA 



LNJ 

$65* < wK7 CwD 

WRT CONFG-WOS 

003124 

1144 

C870 

1630 



LOR 

$R4,=X»1630* 

1060ATA-12SECIRS 

003125 

1146 

0380 

0376 



LNJ 

$65,<RI OLD 


003126 

1146 

F 800 

0296 



LOR 

$R7,<FMT12 

RD ID+OATA 

003127 

114A 

0360 

03A3 



Lnj 

$65,<WRT ASk 

00312b 

114C 

0360 

0546 



LNJ 

$65,<CKERR 


003129 

114E 

0380 

07 F 4 



LNJ 

$65,<ERRT ST 


003130 

1150 

OFOO 

0000 

X 

$A 

NOP 

<RDdUFR 



#*#*#5EARCH TESTS - 12 SECTORS***** 


***** 

* -- 

* SEARCH ♦ READ SECTOR-O 


LNJ 

LNJ 

LuJ 

LOR 

LNJ 

LOR 

LNJ 

LOV 

STR 

LNJ 

LA6 

LNJ 

LNJ 


$05 ,SETEST 
$B5 * <F CWD 
$65 * <WRTCWD 
$R4 , »X *0240 * 
$65 * <RI OLD 
$R7 , <DA f A12 
$65i<WRT ASk 
$K1,=X * 01 1 
$R1 ,<CWbF 
$65 *<CkERR 
$B1, <2EK0S 
$65 *<CMPARE 
$65,<ERRTST 


•*V- 


SET TEST ADORlSS 
FORM CNFG-WOS 
WRT CNFG WDS 
RANGE 


READ-DATA SECIOR-O 





*- 

* 

SEARCH ♦ 

WRITE SECTQR-0 

1 16d 

03C0 

F666 


LNJ 

$65,SETEST 

1160 

0380 

04CA 


LNJ 

$65,<WRT CWO 

116 F 

C87 0 

0240 


LOR 

$R4,=X•0240 1 

1171 

F600 

02 Ab 


LOR 

$R7,<ONES 

1173 

0380 

0459 


LNJ 

$65,<WRTFIL 

1175 

0360 

0394 


LNJ 

$65,<WI OLD 

1177 

F60Q 

029C 


LDR 

"$'R7 , <DATA 12 

1179 

0380 

03A3 


LNJ 

$65,<WR T ASK 

11 7p 

0380 

0546 


Lnj 

$65,<CKERR 

1170 

0380 

07F4 

*- 

LNJ 

$B5,<ERRTST 


* 

* 

* V- 


* FORMAT-READ SeCTQR 0 ♦ 1 


117F 

03C0 

F6A7 


LNJ 

$B5,SETEST 

1181 

0380 

04CA 


LNJ 

$65,<WRTCWD 

1183 

C870 

0246 


LOR 

$R4,=X»024b» 

1165 

0360 

0376 


LNJ 

$B5,<RIOLD 

1187 

F800 

0298 


LOR 

$R7,<FMT12 

1 1 o9 

D380 

03A3 


LNJ 

$65,<WRT ASK 

1186 

8700 

0761 


CL 

<CWbF 

1160 

0380 

0546 


LNJ 

$B5,<CKERR 

lldF 

8740 

0601 


CL 

wKTbFR 

1191 

8740 

0600 


CL 

WRTeFR+1 

1193 

8740 

07 1F 


CL 

wRTdFR+290 

1195 

1C01 



LOV 

$R1,5X«Q1* 

1196 

9F40 

0710 


STR 

$R 1, WKTBFR + 291 

1196 

9BC0 

05F8 


LAB 

$61,WRTBFR 

119A 

D3C0 

F5E0 


LNJ 

$65 KMPARE 

119C 

0380 

07 F4 

£ » 

LNJ 

$B5,<ERRTST 




* 

SEARCH ♦ 

WRITE SECTOR-1 

119E 

D3C0 

F688 


LNJ 

$B5,SETEST 

11 AO 

KOI 



LOV 

$R1,=X'01* 

11A1 

9F44 

0003 


STR 

$Rl,$B4•SECTR 

11 A3 

8AD1 



Inc 

STR 

= $R1 

11A4 

9F00 

0761 


$R I,<CW6F 


* 

*V- 


SET END-SCTR 

Ck TIMEOUT,STmTUS*eND-RMOEKNFG-WDS 
ZEROS 


SET TEST ADDRtSS 
WRT CNFG WDS 
RANGE 


FMT-WK1 SECTOK-0 

Ck TIMtQUT,STATUS*END-RNOE,CNFG-WDS 


SET TEST ADDRESS 
WRT CNFG WDS 
RANGE 


FMT-RD 

SECTR-0 


ID ♦ uATA 
♦ SECTR-l-iD 


Ck TIMEOUT,STaTU5,eND-RNUE,CNFG-WDS 


* 

* 

*v- 


SET TEST ADDRcSS 
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003188 

UAO 

D380 

04A2 



LNJ 

SB5,<FCWD 


003189 

11A8 

D380 

04CA 



LNJ 

$B5,<WRTCWD 


003190 

ilAA 

C870 

0240 



LDR 

$R4, = X *0240 * 


003191 

1 1 AC 

E870 

7101 



LDR 

$R7,=2*7101* 


003192 

11 At 

D380 

0459 



LNJ 

$bb,<WRTFIL 


003193 

llbO 

D380 

0394 



LNJ 

*b5,<WJ0U> 


00319a 

1 ib 2 

F800 

029C 



LDR 

SR7,<DAT A12 


00319b 

UbA 

D380 

03A3 



LNJ 

SB5,<WRT ASK 


003196 

Ub 6 

D380 

054b 



LNJ 

$B5,<CKERR 


003197 

iib 8 

D38Q 

07F4- 



LNJ 

SB5,<LRRTST 


003198 





*- 



-* 

003199 





* 

StARCH a REAP SECTOR-1 

* 

003200 





*- 



-*V 

003401 

iiba 

D3C0 

F 66 C 



LNJ 

SB5.SETEST 


003402 

11 bC 

D380 

04CA 



LNJ 

SB5,<WRTCWD 


003203 

libt 

C870 

0240 



LPR 

SR4. = X * 0240 * 


00320a 

11C0 

D380 

037B 



LNJ 

$65,<KIOLD 


00320b 

HCc 

E 800 

029C 



LPR 

$R7,<DATA12 


003206 

11CA 

D380 

03 A3 



LNJ 

$B5,<WRTASK 


003207 

llLO 

D380 

054B 



LNJ 

$B5,<CKERR 


00340 o 

11 C 8 

9680 

1791 



LAB 

$61,<WRTBFR 


003209 

ilCA 

D380 

0788 



LNJ 

$B5,<CMPARE 


003210 

11CC 

D380 

07 E 4 



LNJ 

$B5, <ERRT5T 


003211 





*- 



-* 

003214 





* 

SEARCH+WRITE SECTOR-11 

* 

003213 





*- 



-*v 

00321 A 

net 

D3C0 

F658 



LNJ 

$B5,SETEST 


00321b 

11 DO 

ICOb 




LDV 

$Ri,=X*OB* 


003216 

11 D 1 

9F44 

0003 



STK 

$R 1,$B4« SECTR 


003217 

11D3 

6 AD 1 




INC 

= S R 1 


003418 

11D A 

9FOO 

0761 



STR 

$Rl.<CWBF 


003219 

1106 

D380 

04A2 



LNJ 

$B5,<FCwD 


003220 

11 P 8 

D380 

04CA 



LNJ 

$B5,<WRTCWD 


003221 

11 Da 

E 870 

AA55 



LPR 

$R7,=Z *AA55• 


003422 

11 DC 

C870 

0240 



LPR 

$R4,=X*0240* 


003223 

UDt 

P 3 C 0 

F27A 



LNJ 

SB5.WRTFIL 


01)322 A 

litO 

D360 

U 394 



LNJ 

$B5,<WIQLD 


003^25 

Ut 2 

F800 

029C 



LPR 

$R7* <DAT A12 


003226 

i 11 A 

D380 

03A3 



LNJ 

$65 , <WRT ASK 


003227 

nt 6 

D380 

054B 



LNJ 

$65,<CKERR 


003228 

ut 6 

D380 

07F4 



LNJ 

$65,<ERRTST 


003429 





*- 



-* 

003230 





* 

SEAKCHaREAP SECTORS IOaU* 

003231 





*- 



-*v 

003232 

111 A 

D3C0 

F63C 



LNj 

$B5,SETEST 


003233 

lltc 

1CUA 




LDV 

$R1,=X*OA* 


0032 3A 

lltD 

9Eaa 

0003 



STR 

$Ri,$B4.SECTR 


00323b 

iltE 

D380 

04A2 



LNJ 

$B5,<FCWD 


003236 

liFl 

U380 

04CA 



LNJ 

$b5,<WRTCWD 


003237 

11 E 3 

C870 

0480 



LDR 

$R4,=X*048Q* 


003238 

11 F3 

D380 

U37b 



LNJ 

$B5,<RI OLD 


003239 

he 7 

E 800 

029C 



LDR 

SR7,<DATA12 


003240 

11E 9 

D380 

03 A3 



LNJ 

$B5,<WRT ASK 


003241 

11 Fb 

D380 

054B 



LNJ 

Sb5,<CKtRR 


003442 

11 FD 

C870 

0240 



LDR 

$R4, = X * 0240• 


003243 

1 1 FE 

CE4A 

UUOt 



SIR 

$R4,$B4 # RANGE 


00324a 

1201 

96CU 

F0A8 



LAB 

SB1.2ER0S 


00344b 

1203 

D3C0 

F 584 



LNJ 

SBb.CMPARE 


003446 

1203 

9BC0 

058b 



LAB 

$BI,WRTBFR 


003447 

1207 

AB60 

0000 

X 


LAB 

$B2,<RDbUFR 


003246 

1209 

ABC2 

0120 



LAB 

$B2,$B2.288 


003249 

1 20 d 

9870 

0120 



LDR 

$R1 , = X*OUO* 


003250 

120D 

D3C0 

F376 



LNJ 

SBb.CMPAKA 


003231 

120E 

D380 

07E4 



LNJ 

$B5,<ERR TST 


003234 





*~ 



-.* 

003453 





* 

SLARCHawRITL ZERO-EILL 

* 

003254 





*- 



-*v 

003255 

1211 

D3C0 

F 6 15 



LNJ 

$B5,SETEST 


003456 

1213 

1C04 




LDV 

$R1,=X*04* 


003457 

12 1 A 

9F44 

0003 



STR 

SRl,$B4*SECTR 


003258 

1216 

8 AD 1 




INC 

= $R 1 


003459 

1417 

9E40 

F 349 



STR 

SRI,CWBF 


003260 

1219 

D380 

04A2 



LNJ 

Sb5, <ECWD 


003261 

121 b 

D380 

04CA 



LNJ 

SB5,<WRTCWD 


003262 

121 D 

C870 

0240 



LDR 

SR4 , = X * 0240 * 


003263 

121 F 

E870 

9999 



LDR 

SR7,=2*9999* 


00326a 

1221 

D3C0 

F 23 7 



LNJ 

SB3.WRTEIL 


003265 

1223 

4C50 




LDV 

$R4 ,=X * 50 * 


003466 

12tA 

D380 

0394 



LNJ 

SB5 « <WI OLD 


003267 

1226 

E 800 

029C 



LDR 

SR7 , <DAT A12 


003468 

1228 

D380 

03 A3 



LNJ 

Sb3,<WRTASK 


003469 

122A 

D380 

054B 



LNJ 

$B5 , <CKERR 


003270 

12 2 C 

D380 

07F4 



LNJ 

$F5 ,~<ERR1 5T 


003471 





*- 



-* 

003472 





* 

StARCli 

a READ 

* 

003273 





*- 



-*v 

00327A 

122 t 

D3C0 

FbFti 



LNJ 

$B3,SETEST 


003473 

14 30 

D380 

04CA 



LNJ 

$B5 ,< WRTCWD 


003276 

12 34 

C870 

0240 



LDR 

sR4,=X»0240» 


003277 

1 2 3 A 

D380 

037B 



LNJ 

SB5 , <RIOLD 


003478 

1236 

F800 

029C 



LDR 

$R7,<DATA12 


003279 

1238 

0380 

03A3 



LNJ 

SB5 , <WRT ASK 


003480 

12 3 A 

D380 

054b 



LNJ 

SB5 , <CkERR 


003281 

123C 

9BC0 

057C 



LAB 

SB1 , WRTBFRa40 


Q03t8c 

1 2 3t 

8757 




CL 

= $R7 


003483 

123E 

C870 

01F0 



LDR 

$R4 , =X • 01FO • 


00328a 

12 A 1 

D3C0 

F22E 



LNJ 

SB5.FILLIT 


003483 

1243 

9bC0 

054D 



LAb 

SB! , wKTtiER 


003486 

1243 

D3C0 

F 542 



LNJ 

SB5.CMPARE 


003487 

1247 

D380 

07 F 4 



LNJ 

SB5,<ERKTST 


003288 





*~ 



-* 

003489 





* 

SLARCH 6 

wRITL 2-SECTORS* 

003490 





* 

(SECTORS 

2 a 3) 

* 

003291 








-*v 

003494 

1249 

D3C0 

E5DD 



LNJ 

Sb5,SETEST 


003493 

124b 

1 C 02 




LDV 

SRI,=X*02* 


0032 9A 

124C 

9F4A 

0003 



STR 

SRI,$64* SECTR 


003493 

1 4 41 

lt04 




adv 

$R1 , = X * 02 * 


003296 

12AF 

9EA0 

F511 



STR 

SR1.CWBE 


003497 

1231 

D380 

Q4A2 



LNJ 

SB5 , <FCWD 


003298 

I 4 33 

D380 

04CA 



LNJ 

SB5,<WRT CWD 


003299 

1233 

C870 

0480 



LDR 

SR4 . = X * 0480 * 


003300 

1237 

9BC0 

0539 



LAb 

SB1,wKTBER 



E8rc»r»s? s 

RANGE 

LOAD WRTBFR 
SCH-WR1 SECTGK-1 

CK TIMtOUT * ST aTUS,END-RNGE.CNFG-W pS 


SET TEST ADDRESS 
WRT CNEG WPS 
RANGE 


SCH-RD StCTOR-l 

CK TIMtOUT,STATUS.END-RNGE.CNFG-WPS 


SET TEST ADDRtSS 


FORM CNFG WPS 
WRT CNEG WPS 
LDBER W/ PATTcRN 
RANGE 


SCHaWKI SCTR-il 

CK TIMtOUT,STATUS,END-RNGE.CNFG-WPS 


SET TEST AppRtSS 


FORM CNFG WPS 
WRT CNEG WPS 
RANGE 


PATA-RP SECTOkS 10 + h 

CK TIMtOUT.ST aTUS.END-RNGE.CNFG-WDS 


SECTR-U 


SET TEST ADDRESS 


FORM CNFG WPS 
WRT CNEG WPS 


RANGE 

SCHaWR 1 W-ZERuFILL 

CK TIMEOUT.STATUS,eNP-RNGE.CNFG-WPS 


SET TEST APPRcSS 
WRT CMEG WPS 
RANGE 


read-data 

CK TIMtOUT,STATUS,END-RNGE.CNFG-WDS 


SET TEST ADDRESS 


FORM CNFG WPS 
WRT CNEG WPS 
RANGE 
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003301 
00330c 
003303 
003304 
003303 
003306 
003307 
003306 
003309 
003310 
003311 
00331*; 
00331j 
003314 
003313 
00331o 
003317 
003316 
003319 
00332U 
003321 
003322 
003323 
003324 
003323 
003326 
003327 
003326 
003329 
003330 
003331 
00333c 
003333 
003334 
003333 
003336 
003337 
003336 
003339 
003340 
003341 
003342 
003343 
003344 
003343 
003346 
003347 
00334b 
003349 
003330 
003351 
00335c 
003353 
003354 
003355 
003356 
003357 
003356 
003359 
003360 
003361 
00336c 
003363 
003364 
003365 
003366 
003367 
003366 
003369 
003370 
003371 
003372 
003373 
003374 
003375 
003376 
003377 
003376 
003379 
003380 
003381 
00338c 
003383 
003384 
003385 
003386 
003387 
003386 
003369 
003390 
003391 
00339c 
003393 
003394 
003395 
003396 
003397 
003396 
003399 
00340U 
003401 
00340c 
003403 
003404 
003405 
00340c 
003407 
00340c 
003409 
00341U 
003411 
00341c 
003413 


1259 

125b 

1250 

125F 

1261 

1263 

1265 


1267 

1269 
126b 
1260 
126b 

1270 
1272 
1274 
1276 
1276 
12 7m 
127C 
127b 
1280 
1262 
1264 
1286 


1286 
1 c6A 
126C 
126b 
1290 
U92 
1 C94 
1296 
1296 
129A 
129b 
1290 
129F 
12 A1 
1 c A3 


12A5 
12 A7 
12A9 
12 Ab 
12 A0 
lcAh 
12 bi 
1263 
12B5 
12b7 


12b9 
12 bb 
12 tou 
126F 
12C0 
1 cCc 
12C4 
12Co 
12Cb 
12CA 


12CC 
1 cCt 
1200 


120c 

1204 
Ic06 
1206 
120A 
UDb 
1200 
1 cOF 
icbl 
I2b3 


F870 
03C0 
0360 
F 800 
0380 
0360 
0360 


03C0 
0380 
9844 
lb03 
9F 40 
C870 
9b60 
AB80 
03C0 
C87G 
0380 
F 800 
0380 
0380 
9bCQ 
03C0 
0380 


6744 
8740 
03C0 
0380 
0380 
0360 
F 670 
FF40 
FF40 
4C30 
0380 
F800 
0360 
0380 
0360 


0102 
F22 3 
0394 
029C 
03A3 
054b 
07F4 


F5bF 

04CA 

0003 

F4F2 

0120 

0000 

1901 

F220 

06C0 

037b 

029C 

03A3 

054b 

050b 

F503 

07F4 


0003 
F406 
F59A 
04A2 
04CA 
051F 
FFFF 
04Fb 
1141 

0394 
02A6 
03 A3 
054b 
07 F 4 


03CO 
0380 
0380 
4C04 
0380 
F600 
0380 
F 870 
FF40 
0380 


F 560 
04A2 
04CA 

0376 
029C 
03A3 
8900 
F 300 
0585 


0380 07F4 
F 870 8000 
F F 40 FcFb 


03C0 
0380 
0380 
0360 
4C30 
0360 
F 800 
0380 
0360 
0360 


F554 
04A2 
04CA 
05 1F 

0394 
0298 
03 A3 
054b 
07F4 


LDR 
Lnj 
LNJ 
LOR 
l NO 
LNJ 
LNJ 


$R7,sX»0102* 
$65,1NC6FR 
$B5,<WI0LD 
$R7 ,<DATA12 
$B5,<WRTASK 
$B5,<CKLKR 
$B5 ,<ERRTST 


SCH+WRT SECTOkS 2*3 
CK TIMtQUT,STMTUS,fcND-RNGE»CNFG-WDS 


SEAKCH6KEAD 3-SECTQRS 
(SECTORS c» 3* 4) 


LNJ 

LNJ 

LOR 

$65,SLTEST 
$B5 * <WRTCWO 
$R1,$B4,SECTR 

ADV 

$R1,sX 1 03 * 

STR 

$R1,CWBF 

LOR 

$R4,=X*0120» 

LAB 

$B1,<RDBUFR 

LAB 

$B2,<WRT6FR+576 

LNJ 

$B5 fMOVEwO 

LOR 

$R4,sX»06C0» 

LNJ 

$B5,<RIOLO 

LOR 

LNJ 

$R7,<0ATA12 
$B5,<WRTASK 

LNJ 

$B5,<CKLRR 

LAB 

$Bl,WRTBFR 

LNJ 

$B5,CMPARL 

LNJ 

$B5,<ERRTST 


* 

*V- 


SET TEbT ADDRESS 
WRT CNFG WOS 


RANGE 


SCH-RD SECTOR:? 2, 3, 4 

CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 


OIAGNObTK FORMAT WRITE 
CREATE CHbU-BYTE ERROR 


CL 

CL 

*88f itCTB 



LNJ 

$B5 * SETEST 

SET TEbT AOORlSS 

LNJ 

$B5, <FCWD 

FORM CNFG WOS 


LNJ 

$B5,<WRT CWO 

WRT CNFG WOS 


LNJ 

$B5,<LDwBFR 
$R7,5?*FFFF» 

SET UP I•D, in 

wrtbfr 

$R7,WRTbFR* 1 



STR 

$R7,DRIN12*2 



LOV 

$R4,=X•30• 

RANGE 


LNJ 

$B5,<WIOLO 



LOR 

$R7,<F 01AG2 



LNJ 

$B5 t<WRT ASK 

FMT-RO 12 SEC f C 

IRS 

LNJ 

$B5,<CKLKK 

CK TIMEOUT,STmI 

rUS»END-RNGE,CNFG-WOS 

LNJ 

$B5,<LRRT ST 



* FORMAT-READ LOOK FOR RD-ERR* 

-*V- 


03C0 F581 

* — 

LNJ 

$B5,SETEST 

0380 04CA 


LNJ 

$B5, <WRT CWO 

C870 0244 


LOR 

$R4, sX * 0244• 

0380 0376 


LNJ 

$B5,<RIOLO 

F 800 0296 


LOR 

$R7,<FMT12 

0380 03A3 


LNJ 

$B5,<WRTASK 

F870 8800 


LOR 

$R7,=2•8800• 

F F 4 0 F 31 5 


STR 

$R7»SBST US 

0380 0585 


LNJ 

$B5,<CKSTUS 

0380 07F4 


LNJ 

$85,<ERRTST 


5ET TEbT ADDRESS 
WRT CNFG WOS 
RANGE 


FMT-RO 1D + DA f A 

5ET EXPECT RD-ERK 
CK STATUS, EXRECT RD-ERR 


* 

LOOK FOR READ-ERROR AND * 
UNSUCESSFUL SEARCH ERROR * 


LNJ 

$B5,SETEST 

...*y_ 

SET TEbT ADDRESS 

LNJ 

$65,<FCwD 


FORM CNFG WOS 

LNJ 

$65,<WRT CWO 


WRT CNFG WOS 

LOV 

$R4,sX *04 > 


RANGE 

LhJ 

$B5,<RIOLO 



LOR 

$R7,<0A7 A12 



LNJ 

$65,<WRTASK 


SCH-RD StCTOR W ERr 

LOR 

$R7, 1 8900• 


STR 

$R7,SBSTUS 



LNJ 

$B5i<CKSTUS 


EXPECT RD-ERR*UNSUCSFUL-SCH 


* NOTE; IF FIRMWARE IS LESS THAN 

* WILL ALSO btT. THIS IS VALID, 

* 

LNJ $B5, <ERHTST 

LOR $R7,=2• 8000 * 

STR $R7, SBSTUS 

*-— —--* 

* FORMAT 12-SECTORS~ * 

*—------*v- 


REV. 0Q1B, MISLED DATA SYNC 


CLEAR tXPECTEu ERRORS 


LNJ 

$65 *SETEST 


LNJ 

$65* <F CWD 

FORM CNFG WOS 

LNJ 

$b5,<WRTCWD 

WRT CNFG WOS 

LNJ 

$B5,<LOwbFR 

LOV 

$R4,sX * 30 * 

RANGE 

LNJ 

$65,<WIOLO 


LOR 

$R7,<FMT12 


LNJ 

$65, < WRT ASK 

FMT 12 SLCTORb 

LNJ 

$65 *<CKLRR 

CK TlMtOUT,STATUS,END-RNGE,CNFG-WDS 

Li>*J 

$B5,<ERRT ST 


************ *** ** ****** **** * * * 
* * 





* 

*> 

seek 

TESTj 

* 





****************************** 


12E5 

12E5 


SMPLSK EUU 

$ 


SIMPLE SEEKS 

03C0 

F 541 

£ 

LNJ 

$65,SETEST 





* 

SEEK OUT 

TO CYL CA (202) 

♦ 

WRT IT 

12 L7 

F870 

OOCA 


LOR 

$R7,sX'OOCA 1 



1cE9 

F F44 

0001 


STR 

$R7,$B4.CYLNG 



12Eb 

0380 

04A2 


LNJ 

$65,<FCWD 


FORM CNFG WOS 

icEU 

0380 

04CA 


LNJ 

$65,<WRTCWD 


WRT CNFG WOS 

12EF 

F800 

0296 


LOR 

$R7 ,<SEK 


IcFl 

0380 

03A3 


LNJ 

$65,<WR TASK 


SEEK TO CYL-OuCA 

12 F 3 

8CC4 

OOOC 


LOI 

$B4,WCWA 


12F5 

8040 

0496 


SOI 

WRTbFR 



12 F 7 

6000 

0760 


SOI 

<CWAF 


SET FINAL CNFg-WOS 















1ITLE CDb;>i,»KEV 7» 




PACit 34 


003414 

i*:F9 

0360 

0365 


LNJ 

$B5 * <CK5T US 

CK TIMtOUT,STATUS 


UU3415 




* 





0034 16 

12Fb 

4C04 



LDV 

$R4, = X * 04♦ 

range 


0U3417 

12FC 

0380 

0394 


LNJ 

Sb5 * <WIULD 


f w 

0034 id 

12Fl 

F600 

0297 


LDk 

$R7,<FM1 


V>' 

00341V 

1300 

0360 

03 A3 


LNJ 

$B5»<WRTA5K 

FMT-WRITE 

003420 

1302 

0380 

054b 


LNJ 

$B5»<CKERR 

CK TIMEOUT,STATUS,END-RNGE,CNFG-WDS 


003421 

1304 

0360 

07F4 


LNJ 

$B5,<ERRTST 



003422 




* 





003423 




* 

SEEK BACK. 

TO 2ERU ANO READ IT 



003424 




* 





003423 

130b 

8 744 

0001 


CL 

$B4*CYLN0 



00342b 

1 306 

8700 

0760 


CL 

<CWAF 



003427 

130a 

0360 

04A2 


LNJ 

$65,<FCWD 

FORM CNFG WDS 


0u342d 

13uC 

0360 

04CA 


LN J 

$B5 , < WRT CWD 

WRT CNFG WDS 


003429 

130t 

F 800 

0296 


LOR 

$R7 , <SEK 



00343U 

1310 

0380 

03A3 


LNJ 

$B5,<wRTASK 

SEEK TO 0000 


003431 

1312 

0360 

0585 


LNJ 

$B5,<CK5TUS 



003432 

131* 

4C04 



LUV 

$R4,£X'04» 

RANGE 


003433 

1313 

0360 

037b 


LNJ 

$B5,<HIGLD 



003434 

1317 

F 800 

0296 


LOR 

SR7,<FMTl2 



003433 

1319 

0360 

03 A3 


LNJ 

Sb5»<WRTASK 

FMT-RD 


00343b 

131b 

0360 

054b 


LNJ 

Sb5 * <CKERR 

CK TIMtOUT,STATUS,END-RNGE»CNFG-WDS 


00343 1 

1310 

9B80 

02AA 


LAB 

SB 1 ,<2EKQS 

CYL-00 * TKK-QO 


003*38 

1 3 1 F 

0380 

0788 


LNJ 

SB5i<CMPARE 



003439 

1321 

0360 

07F4 


LNJ 

Sb5,<ERRTST 



003440 




# 





003441 




* 

SEEK OUT 

TO CYL-OOCA ♦ READ IT 



00344*: 




* 





003443 

1323 

F 870 

OOCA 


LOR 

$R7 , •OOCA * 



003*44 

1323 

F F 44 

0001 


STR 

$R7,$b4#CYLNQ 



003443 

132 1 

0380 

04A2 


LNJ 

SB5,<FCWD 

FORM CNFG WDS 


00344b 

1329 

0360 

04CA 


LNJ 

Sb5 i<WRT CWD 

WRT CNFG WDS 


003447 

132b 

6CC* 

OOOC 


L01 

SB4* WCWA 



00344b 

1320 

8000 

0760 


SOI 

<CWAF 



003449 

1 32 F 

F 800 

0296 


L-DR 

$R7,<5EK 



003430 

1331 

0380 

03A3 


LNJ 

$b5 ,<WRTASK 

SEEK CYL-OOCA 


003431 

1333 

0380 

0563 


LNJ 

SB5 ,<CKSTUS 



00343*: 

1335 

4C04 



LUV 

$R4,=X»04* 

RANGE 


003433 

133b 

0380 

037b 


LNJ 

SB5 ,<KIOLD 



003434 

1338 

F8U0 

0297 


LOR 

SR7 , <FMT 



003453 

133A 

0380 

03A3 


LNJ 

SB5 ,<WRTASK 

FMT-RD, ^ 


00343b 

133C 

0380 

0546 


LNJ 

SB5 »<CKERR 

CK TIMEOUT,STATUS,END-RNGEfCNFG-WDS 


003437 

1 3 31 

9B60 

1791 


LAB 

SB!*<WRT BFR 



00345b 

1340 

0360 

078*8 


LNJ 

SB5,cCMPARL 



003459 

1342 

0380 

07 F4 


LNJ 

$B5,<ERRTST 



0034b0 









003461 




* 

IMPLIED SttKS * 



003462 









003463 

134* 

D3C0 

F4E2 


LNJ 

SB5 * SETEST 



003464 




* 





003463 




* 

SEEK BACK 

TO lERQ AND READ IT 



00346b 




* 





003467 

1 34b 

8 744 

0001 


CL 

SB4.CYLN0 



00346b 

134o 

8700 

0760 


CL 

<CWAF 

CLEAR CNFG-WD 

/f' 

003469 

134A 

0360 

04A2 


LNJ 

SB5 «<F CwO 

FORM CNFG WDS 

/« 

003470 

134C 

0360 

04CA 


LNJ 

SB5 * <wRTCWD 

WRT CNFG WDS 

i 

003*71 

134fc 

*C0* 



LOV 

$R4,=X'04» 

RANGE 

’"A 

003472 

134F 

0380 

0376 


LNJ 

SB5,<RI OLD 



00347.2 

1351 

F 600 

029A 


LOR 

SR7, <FMT SK2 



003474 

1353 

0360 

03A3 


LNJ 

SB5 ,<WRTASK 

FMT-RD 


003473 

1355 

0380 

054b 


LNJ 

SB5,<CKERR 

CK TIMtOUT,STATUS,END-RNGE*CNFG-WDS 


003476 

1357 

9680 

02 AA 


LAB 

SB I,<ZEROS 

CYL-001TKK-OQ 


003477 

1339 

0380 

0788 


LNJ 

SB3,<CMPARE 



00347b 

133b 

0380 

07F4 


LNJ 

SB5,<ERRTST 



003*79 




* 





003480 




* 

SEEK OUT 

TO CYL-OOCA ♦ READ IT 



003*bl 




* 





003*82 

1330 

F870 

OOCA 


LOR 

$R7,=X«00CA* 



003483 

1 35F 

FF44 

0001 


SIR 

SR7 »SB4.CYLN0 



003*84 

1361 

0380 

04A2 


LNJ 

SBS * <FCWD 

FORM CNFG WDS 


003485 

1363 

0380 

04CA 


LNJ 

$65,<WRT CWD 

WRT CNFG WDS 


003*86 

1365 

6CC4 

OOOC 


EDI 

SB4•WCWA 



003487 

1367 

8000 

0760 


SOI 

cCWAF 



003488 

1369 

4C04 



LOV 

$R4,=X»04» 

RANGE 


003489 

1 36 A 

0360 

037B 


LNJ 

SB5i<RI OLD 



003490 

136C 

F800 

0299 


LOR 

SR7 * <FMT SEK 



003491 

1368 

0360 

03A3 


LNJ 

Sb5 $ <WRT ASK 

FMT-RD 


00349*: 

1370 

0380 

054b 


LNJ 

$65 * <CKERR 

CK TIMtOUT,STATUS,END-RNGE,CNFG-WDS 


003493 

1372 

9B60 

1791 


LAB 

$BU<WRTBFR 



003494 

137* 

0380 

0788 


LNJ 

$B5,<CMPARE 



003*95 

137b 

0380 

07F4 


LNJ 

$B5i<ERKT ST 



003*96 




#. - 





003497 




* 

GO FORMAT THE PACK * 



00349b 




*-« 





003*99 

1378 

03C0 

F4AE 


LnJ 

$B5,SETEST 



003300 

13 7A 

0360 

04 F 4 


LNj 

SB5 * <SET PRM 

SET PAK PARAMlTERS 


003501 

137C 

03C0 

0003 


LNJ 

SBS,PKFMT 



003502 

1376 

OF 80 

13B9 


b 

<SEkIST 



003503 









003504 




ik 

FORMAT-WRITE ROUTINE * 



003305 









003506 


1380 


PKFMT EUU 

S 



003307 

1380 

8F00 

13AB 


SAVE 

<FMT SAV,s2 1 7 F 7 F• 




1362 

7F7F 







00330b 

1383 

0360 

0332 


LNJ 

SB5,<RECALB 



003309 

1365 

0360 

0514 


LNJ 

SB5,<LDPARM 



003510 

1387 

0380 

04A2 

FQRMTR LNJ 

SB5,<FCwD 



003511 

1369 

0380 

05 IF 


LNJ 

SB5,<LDW6FR 



003212 

136b 

0380 

04CA 


LNJ 

$B5,<WRTCWD 



003313 

1380 

4C60 



LOV 

$R4,-X*60» 

24-SECTOK CAELUS 


003514 

1 38 b 

0380 

0394 


LNJ 

SB5,<WI OLD 



003315 

1390 

F 800 

0299 


LDR 

$R7,<FMT SEK 



003316 

1392 

0380 

03 A 3 


LNJ 

SB5,<WRT ASK 

SEK6FM1 WRT 


003517 

1394 

0380 

0585 


LNJ 

SB5,<CKST US 



003518 

1396 

b844 

0002 


LOR 

SR3,$B4 9 TRKNO 



003519 

1396 

B944 

0008 


CMR 

$R3,SB4.MAXTR< 


d ■ 

003320 

139A 

0264 



BGt 

>FNXCYL 


§ 

003521 

139b 

8 AC* 

0002 


INC 

$B4.TRKNO 


I 

003522 

1390 

0F6A 



b 

>FOKMTR 



003523 

1396 

8 AC* 

0001 

FNXCYL INC 

SB4.CYLN0 



003324 

13A0 

8744 

0002 


Cl 

SB4.TRKNO 



003325 

13A2 

B844 

0001 


LOR 

SR3,$64,CYLNO 





















HILL CDUSU’ktV 7* PAGE 3b 


00352o 

1 3 A4 

0944 

0007 



CMR 

SR3»$B4 # MAXCYL 



U 0 3 5 2 7 

1 3 A 6 

03t 1 




bLE 

>fukmtr 



003326 

13 A 7 

8F80 

13 AB 



RbTK 

<FMTSAV*=Z , 7F7F* 



13A9 

7 F 7 F 








00332^ 

1 3 AA 

8385 




JMP 

3»B5 



00333O 

1 3 Ao 

0000 



FMTSAV RESV 

7*$AF+7,0 



003331 








•* 


00333^ 





* 



# 


003333 





* 

SEEK TO 

all cylinders 

* 


003534 





* 



* 


003333 





* — 



.* 


00333o 


13b9 



SEkTST tUU 

* 



003337 

1 3u9 

0300 

F 460 



LNJ 

Sb3 * StTEST 



00333d 

13bL> 

0380 

0332 



LNJ 

SB5,<RECALb 



00333V 

1 3BU 

0380 

0514 



LNJ 

bB5 * <LDPARM 



00334U 

UbF 

0855 




LOR 

$R6,=SR5 



003341 

13CU 

8A06 



SKXCYL INC 

= $Ro 



003542 

UCi 

t F 44 

0001 



STR 

$R 6 *Sb4#CYLN0 



003343 

13L3 

03 8 0 

034A 



LNJ 

SB5,<SEKI0 


SEEK + read u 

00354* 

13C5 

0380 

0585 



LNJ 

$B5♦<CKSTUS 



003343 

UC7 

t900 

0000 

X 


CMR 

*R 6 ,<kDbUFR 



00334b 

13 09 

0900 


T 


bb 

> + $L 



003347 

U C A 

F 380 

0850 



LNJ 

$B7*<ERR0R 



00334b 

UbC 

8744 

0001 


$C 

Lb 

SB4.CYLN0 



003349 

130c. 

038U 

034A 



LNJ 

Sb5 *<SEKI0 


SEEK 00 ♦ REAj ID 

003350 

1 3U0 

0380 

0585 



LNJ 

*B5,<CKSTUS 



003351 

1302 

8980 

0000 

X 


CHZ 

<ROdUFR 


CK FOR CYL 00 

003352 

1304 

0900 


T 


bt 

> + $D 



0O3353 

1303 

F 3 60 

0850 



LNJ 

$67«<ERROR 



003334 

1307 

t944 

0007 


*D 

CMR 

$R6,$84.MAXCYL 



003353 

1309 

0267 




bL 

>SKXCYL 



003356 

1 30a 

0360 

0332 



LNJ 

$65 * <RECALb 



003357 

1 3oC 

0360 

0514 



LNJ 

$65»<LDPARM 



00335o 





# — 



■* 


003359 





* 

SEARCH 

ANO WRITE W/ 

* 


003360 





* 

i rack switching 

# 


003361 








■#V- 


00356c 

13I3L 

0300 

F 448 



LNJ 

$B5,SETES1 


SET TEi>T AOORtSS 

003363 

13EU 

F 870 

0017 



LOR 

$R7 * = X * 0017• 



003364 

1 3hC 

F F 4 4 

0003 



SIR 

SR 7 * $B4•SECTR 



003563 

1 3E4 

F670 

0101 



LOR 

$R7* = X»010i • 



00356b 

Uto 

FFOO 

0761 



STk 

$R7»<CWBF 



003367 

1 3 to 

6 700 

0760 



CL 

<CWaF 



003566 

i 3 tA 

0380 

04A2 



LNJ 

$B5 » <F CWD 


FORM CNFG WDS 

003569 

1 3 tC 

0380 

04CA 



LNJ 

ib5f<WKTCW0 


WRT CNFG WOS 

003570 

1 311 

0870 

0114 



LOR 

$R4,=X»0114* 


RANGE 

003571 

13FO 

F 8 70 

2466 



LOR 

$R7,=X*2468* 



00337c 

UF 2 

0360 

04&9 



LNJ 

$b5 1 <WRTFIL 



003573 

13F4 

0360 

0394 



LNJ 

$65 * <WIOLD 



003574 

1 3F6 

F 800 

029b 



LOR 

$R7 *<DATA 



003373 

13F6 

0360 

03 A3 



LNJ 

$b5 »<WRTASK 


WRT-OATA TRK-SWIiCH 

00337b 

UFA 

0360 

054B 



LNJ 

$B5,<CKEKR 


CK TiMtOUT »STATUSfEND-RNGE♦CNFG-WDS 

003377 

UFO 

0360 

u7F4 



LNJ 

$65 *<ERRTST 



003376 





*-- 



• * 


003579 





* 

SEARCH 

♦ read to check 

* 


003 3 80 





# 

FOR TRACK SWITCH 

# 


003381 








■*v- 


00358c 

13Ft 

0300 

F426 



LNJ 

$65 t SETEST 


SET Tti>T AOORuSS 

003583 

1400 

7C01 




LDV 

$R7•?X * 01' 



003584 

1401 

FF44 

0002 



STR 

$R7,$B4.TRKNQ 



003385 

1403 

6744 

0003 



CL 

Sb4.SECTR 



003586 

1403 

0360 

04A2 



LNJ 

$65,<FCwD 


FORM CNFG WOS 

003387 

1407 

0360 

04CA 



LNJ 

$b5♦<WKTCwO 


WRT CNFG WDS 

003386 

1409 

4020 




LOV 

$R4 * sX * 20 * 


RANGE 

003389 

140 A 

0380 

037b 



LNJ 

$65♦ <R J OLD 



003390 

14UC 

F 600 

029b 



LOR 

$R7♦<OAT A 



003391 

1401 

0360 

03 A3 



LNJ 

$65 * < WRTASK 


SCH-RD 

00339c 

1410 

0360 

Q54B 



LNJ 

$B5 * <CKERR 


CK TIMEOUT»STATUS*END-RNGE«CNFG»WDS 

003593 

141c 

9BOO 

0408 



LAB 

$B1*WRTBFR*136 


BUFFER AREA OF INTERREST 

003394 

1 4 1 4 

6757 




CL 

c$R7 


TO BE FILLED wITH THE VALUE ZERO 

003395 

1413 

0670 

0200 



LOR 

$R4 * ~5 12 


FOR A RANGE OF 312 BYTES 

00339b 

1417 

0300 

F059 



LNJ 

$65•FILLIT 


BY THU SUBROUTINE 

003597 

1419 

9B80 

1611 



LAB 

$bl«<WRTBFk*fl28 


003396 

1 4 1 D 

0360 

0788 



LnJ 

$B5,<CMPARE 



003599 

1 4 1 0 

0380 

07F4 



LNJ 

$65,<ERRTST 



003b00 





*-- 



»* 


003b01 





* 

SEARCH 

ANO READ W/ 

* 


00360c 





* 

TRACK SWITCHING 

* 


0U3603 





*-- 



•#v- 


003604 

1 4 1 F 

0300 

F'407 



LNJ 

SB5,SETEST 


SET TE^T ADDRESS 

003b05 

14C1 

8744 

0002 



CL 

$64.TRKN0 



003606 

1423 

7017 




LOV 

$R7,=X*17» 



(703607 

1424 

FF44 

0003" 



STR 

$R7,$b4.SECTR 



003606 

1426 

0380 

04A2 



LNJ 

$65 »<FCWD 


FORM CNFG WOS 

003609 

14C6 

0380 

04CA 



LNJ 

$65♦<WRTCWO 


WRT CNFG WDS 

003610 

142 A 

C870 

0200 



LOR 

$R4 1 = X * 0200 * 


RANGE 

003b 1 1 

1420 

0380 

037b 



LNJ 

$65»<KIOLD 



003b12 

l42t 

F 800 

029b 



LOR 

$R7,<DATA 



003613 

1430 

0380 

03 A3 



LNJ 

$65 *<WRTASK 


SCH-RO 

003614 

1432 

0380 

054b 



LNJ 

$B5,<CKERR 


CK TiMtOUT *STaTUS»END-RNGE»CNFG-WDS 

003615 

1434 

9B80 

1791 



LAB 

$61 »<WRTBFR 



003616 

1436 

0380 

0788 



LNJ 

$B5,<CMPARE 



003617 

1436 

0380 

07F4 



LNJ 

$B5 »<ERRTST 



003616 








.# 


003619 





* 

SEARCH 

ANO WRITE W/ 

* 


003620 





* 

cylinder switching 

* 


003621 








.#v- 


003622 

143 A 

6AC4 

0002 



INC 

SB4.TKKN0 



003623 

1430 

03C0 

F3EA 



LNJ 

$B5 $ SETEST 


SET TEST ADDRESS 

003624 

i43t 

0380 

04A2 



LNJ 

Sb5*<FCW0 


FORM CNFG WDS 

003623 

1440 

0380 

04CA 



LNJ 

$65»<WRTCWD 


WRT CNFG WDS 

003626 

1442 

6001 




LOV 

$R6,=X»Q1* 



003627 

1443 

F856 




LOR 

$R7*=$R6 



003626 

1444 

8000 

0760 



SOI 

<CWaF 


SET END-CNFG-wDS 

003o29 

1446 

0870 

0114 



LOR 

SR4,5X , 0114* 


RANGE 

003630 

1446 

0380 

0394 



LNJ 

$B5 9 <W10L0 



003631 

144A 

F800 

0296 



LOR 

$R7,<DATA 



00363c 

1440 

0360 

03A3 



LNJ 

$B5 *<WRTASK 


SCH*WR1 W-CYL SWITCH 

003633 

144E 

0380 

054b 



LNJ 

$B5 *<CKERR 


CK TIMEOUT *STATUS♦END-RNGE»CNFG-WDS 

003634 

1450 

0380 

07F4 



LNJ 

$B5 *<ERRTST 



003633 










003636 





# 

SEARCH+READ to check for 

* 


003637 





# 

CYLINDER+TRACk switch 

* 
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003o3b 




*- 
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003639 

1454 

6744 

0004 


CL 

$64.TRKNO 



GQ3o40 

1454 

8744 

0003 


Cl 

SB4.SECTR 



003o41 

1456 

8 AC4 

0001 


INC 

$B4.CYLN0 



Q03t>44 

1458 

03C0 

F3CE 


L NJ 

$B5 ,SETE5T 


SET TEi>T ADDRESS 

003643 

145m 

0360 

04A4 


LNJ 

$65 * <FCWO 


FORM CNFG WOS 

003o44 

14SC 

0360 

04CA 


L NJ 

$65 ,<WRTCWD 


WRT CNFG WDS 

003646 

145E 

4C20 



LOV 

$R4 , = X * 20 * 


RANGE 

003b4o 

1 *5 F 

0380 

037b - 


LN J 

$65,<RJ0LD 



003647 

1461 

F 800 

0490 


LOR 

$R7,<DATSEK 



003646 

146^ 

0380 

03 A3 


LIMJ 

$65 *<WRTASK 


sch-ro 

003649 

1465 

0380 

054b 


LiMJ 

$b5,<CKERR 


CK TIMEOUT,STaTUS,enD-RNGE,CNFG-WDS 

003650 

146 7 

9b6Q 

1811 


LAB 

$bl,<WRT6FR*126 


003651 

1469 

0380 

0788 


LNJ 

$B5 »<CMPARE 



003654 

1460 

0360 

07 F 4 


Lnj 

SB5 t<ERRTST 



006653 




*- 



• * 


00365* 




* 

SEARCH 

ANO REaO W/ 

* 


003q55 




* 

cylinder*irack switching 

* 


003656 




*- 



-*V- 


003657 

1460 

6 744 

0001 


CL 

$B4.CYEN0 



003656 

1 46F 

6AC4 

0002 


INC 

$64* TRKNO 



003659 

1471 

7 C17 



LOV 

$R7,=X*17* 



003660 

1*74 

FF44 

0003 


SIR 

$R7 ,$b4.SECTR 



00366 I 

1*7* 

03C0 

F 3b4 


LNJ 

$B5 , SETEST 


SET TE3T ADDRESS 

0Q3&64 

14 76 

0380 

04A2 


LNJ 

$65, <PCwD 


FORM CNFG WDS 

003663 

1*76 

0360 

040A 


LnJ 

ib5,<WHTCWP 


WRT CNFG WOS 

00366* 

147A 

0670 

0200 


LOR 

$R4,=X*0200* 


RANGE 

003665 

1 47C 

0360 

037b 


LNJ 

$b5 , <R I OLD 



0 o3o6o 

1*76 

F6U0 

0290 


LOR 

$R7,<OATSEK 



003667 

1*60 

0360 

03A3 


LNJ 

$65 , <WRTASK 


SCH+RO W-CYL SWITCH 

003666 

1*64 

0360 

054b 


LNJ 

$65,<CKERR 


CK TIMEOOT,STATUS*END-RNGE*CNFG-WOS 

003o69 

1*64 

9B8Q 

1791 


LAb 

$61, <WRT6FR 



0036 70 

1466 

0360 

0788 


LNJ 

$b5 * <CMPARE 



003o71 

1*86 

0360 

07F4 


LNJ 

$65,<ERRTST 



003674 




*- 



»* 


003673 
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SEARCH 
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* 


003674 




* 
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1 11 H DATA FOR THE 

# 


003675 




* 

MAX-OFF SeT RANGE TEST 

* 


003676 




* 

DATA COMPARE 

* 


003677 







•*V- 


003676 

1 *6A 

0300 

F39C 


LNJ 

$B5 * SETEST 


SET TEST AOOKtSS 

003679 

1460 

7005 



LOV 

$R7,=X*05* 



003680 

1*80 

FF44 

0001 


STR 

$R7,$b4.CYLN0 


CYL-5 

003681 

146F 

674* 

0002 


CL 

$64.TRKNO 


TR<-0 

003684 

1*91 

/OOF 



LOV 

$R7,=X*0F* 



003683 

1*94 

F F 4* 

0003 


STR 

$R7 »$b4.SECTR 


SCTR-16 

003684 

1*9* 

0360 

04A4 


LNJ 

$B5,*FCwD 


FORM CNFG WPS 

003685 

1*96 

0360 

u4CA 


LNJ 

$B5 ,<WRTCWP 


WRT CNFG WOS 

003686 

1*96 

6004 

OOOC 


LOi 

$64. wCWA 



003687 

1 *9 A 

6 A07 



INC 

= $R7 



003688 

i*9b 

6000 

0760 


SOI 

<CWAF 


SET FINAL CNFu-wDS 

003689 

1*90 

0670 

0100 


LOR 

$k4,=X*0100* 



003690 

149F 

F 87 0 

8899 


LOR 

$R7,=4*8699* 



003691 

1 * A1 

0380 

0459 


LNJ 

$b5 »<WRTF IL 



003694 

14A3 

F 870 

88 AA 


LOK 

$R7 ,=4 * 86 AA * 


DATA BYTE * Am * 

003693 

14A5 

FFOO 

1810 


STR 

$R7,<WRT6FR*147 


00369* 

IMA / 

9670 

0100 


LOR 

$R1 , =X * 0 100• 


RANGE 

003695 

14 A9 

0360 

0394 


LNJ 

$65 ,<WIOLO 



003696 

14 Ad 

F800 

0290 


LOR 

$R7, <DAT SEK 



003697 

14 AO 

0360 

03 A3 


LNJ 

$B5,<WRIASK 



003696 

14 aF 

0360 

054o 


LNJ 

$65,<CKERR 


CK TIMEOUT,STaTOS*enD-RNGE*CNFG-WDS 

003699 

l*bl 

0380 

07F4 


LNJ 

$65,<ERRTST 



003 70u 




*- 



-* 


003701 




* 

SEARCH 

ANO READ W7 

* 


00370c 




* 

MAX-uFF StT-RANGE 

* 


003703 




*- 



-*v- 


00370* 

1463 

674* 

0001 


CL 

$B4.CYLN0 



003/05 

1465 

8744 

0004 


CL 

$64.TRKNO 



003706 

14b 7 

6 7*4 

0003 


CL 

$64.SECTR 



003707 

1*69 

0300 

F360 


LNJ 

$65*SETEST 


SET TEST AOOReSS 

003706 

14bb 

0360 

04A4 


LNJ 

$B5 *<FCWD 


FORM CNFG WDS 

003709 

I4b0 

0360 

04GA 


LNJ 

$65 * < wRT CWO 


WRT CNFG WDS 

003710 

i*bF 

F670 

FFFF 


LOR 

$R7 * = Z * FFFF * 


MAXIMUM OFFSE ( 

003/11 

1401 

0360 

03 At 


LNJ 

$65 * <WroFRG 


WRITE OFFSET kANGE 

0O37U 

1*C3 

4001 



LOV 

$R4 * = X * 0 1 * 


range 

003713 

1*04 

0360 

037b 


LNJ 

$65 * <RI OLD 



003 714 

14C6 

F800 

0490 


LOR 

$R7 * <DATSEK 



003715 

14C6 

0360 

03 A3 


LNJ 

$65 *< WRTASK 



003716 

i*CA 

0360 

054b 


LNJ 

$65 *<CKERR 


CK TIMEOUT,STATUS,fcND-RNGE,CNFG-WDS 

003/17 

1*CC 

E870 

A AOO 


LOR 

$R6 * =4 * AAOO * 



003 / lb 

14LL 

lFOO 

1791 


STR 

$K6 , <WRTbPk 



003/19 

1*00 

9080 

1791 


LAB 

$61,<Wk TBFR 



003720 

1404 

D3W 

"0788 


LNJ 

¥83 CMP ARE " 



003/21 

1*04 

0360 

07F4 


LNJ 

$65 *<ERRTST 



003724 

140b 

8 744 

000 F 


CL 

$64.0FSTRG 


CLEAR 1 HE -OFF-SET RANGE 

003 723 




*- 



■ -* 


003724 




* 

SEARCH 

AND WRITE W/ 

* 


003725 




* 

SENSITIVE DATA PATTERN 

* 


003726 




*- 



•-* 


003 72 / 

1406 

0300 

F34E 


LNJ 

$65,SETEST 



003726 

1*DA 

0300 

EFC7 


LNJ 

$65,PCWD 


FORM CONFG-WDb 

003729 

14DC 

0300 

EFEO 


LNJ 

$B5 * WRTCWD 


WRT CNFG-WDS 

003730 

l*bE 

7017 



LOV 

$R7 * = X • 17* 



003731 

140F 

8756 



CL 

= $K6 



0u3734 

1*E0 

8000 

0760 


SOI 

<CWAF 


SET FINAL CNFu-WDS 

003/33 

14E4 

0870 

1700 


Luk 

$R4,=X*1700* 


23 SECI0R5 

003 734 

l*t* 

F 87 0 

GOFF 


LOR 

$R 7 * = 4 * 00 FF * 


SENSITIVE DATA WORD 

003 735 

14E6 

0360 

0459 


LNJ 

$65 , < WRTFIL 


FILL WRIIL-BOrR 

003736 

14E8 

0380 

0394 


LNJ 

$b5 ,<WIOLD 



003737 

i*EA 

F840 

E0B4 


LOR 

$R7 ,DATSEK 


S>* WRT 

003 738 

I4tsv 

0360 

03 A3 


LNJ 

$65 * <WRTASK 



003 739 

14LL 

0380 

054b 


LNJ 

$65 * <CKERR 



0037*0 

14 F 0 

0380 

07F 4 


LNJ 

$65 , <ERKTST 



003 741 




*- 



—* 


003 7*4 




# 

SEARCH 

AND REAO W/ 

* 


003743 




# 

SENSITIVE DATA PATTERN 

* 


00374* 




*- 





003745 

14F4 

0670 

003F 


LOR 

$R4 , = X * 003F • 


LOOPS 

003746 

1*F4 

OF GO 

1510 


STR 

$R4 * <WOPTOM 



003 747 




# 

LKE-00 "TOM'* SO CAN LOOP i NDEF INITELY ! ! !! 

003/46 


14F6 


REDO LOU 

$ 



003749 

14F6 

0300 

F330 


LNJ 

$B5*SETEST 



003/50 

14F 8 

0300 

EFD1 


LNJ 

$65 * WRTCWO 


WRT CONpG-wDS 
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003751 

14FA 

C870 

1700 



LOR 

4R4,sX*1700« 


23-SECTRS 

003752 

14FC 

0360 

0376 



LNJ 

$05 » <R10LD 



003753 

1 4 F t 

F800 

029D 



LOR 

$R7 t<DATSEK 



r>*. 003754 

1500 

0360 

03 A3 



LNJ 

$B5»<wRTASK 


S+RD 

I 003755 

1502 

0380 

054b 



L M 3 

$B5*<CKLRR 


CK TIMUU)*STUj,ENP.rngE*CNFG-WDS 

1 003756 

1504 

9Bfa0 

1791 



LAB 

$bi,<wrtbfr 


DATA S/BE 

w 003757 

1506 

0380 

0768 



LNJ 

$B5*<CMPARE 



003756 

1506 

0360 

07F4 



LNJ 

$B5,<tRHTST 



003759 

150a 

6860 

1510 



OBC 

<WOPTOM 



003760 

15GC 

6960 

1510 



CMZ 

<WQPTOM 



003761 

1506 

0366 




BG 

>REoG 


LOOP TEST 

00376c 

150F 

OP 82 




6 

>WTPROG 


EXIT 

003763 

1510 

0000 



WOPTOM RtSV 

120 


NO. OF LOOPS 

003 /64 





*- 



-ft 


003765 





# 

SEARCH 

ANO WRITE w/ 

ft 


003766 





ft 

MAXIMUM 

RANGE 

ft 


003767 





*WRT FROM MtMORY LOCATIONOOOO* 


003766 





ft- 



-*v- 


003769 


1511 



WTPROG BuU 

$ 



003770 

1511 

o3C0 

P 31 5 



LNJ 

$B5 »SETEST 


SET TE5T A00Rb5S 

003771 

1513 

0380 

04A2 



LNJ 

$B5 *<FCwD 


FORM CNFG WOS 

00377c 

1515 

0380 

04C A 



LNJ 

$B5*<WRTCW0 


WRT CNFG WDS 

003773 

1517 

9bC0 

t ABB 



LA b 

SBUZERO 



003774 

1519 

9F60 

0396 



STB 

$bl,<W0LD8*l 


SET WRT ADD = ZERO 

003/75 

151b 

9B60 

0000 

X 


LAd 

$B1,< 2 V$NR 


HI MEM 

003776 

1510 

1 C 00 




LUV 

$Ri »=J$AF-1 


SAP/LAP 

003777 

15 It 

C811 




LOR 

$R4 1 $B1•$R1 


RANGE 

003776 

151P 

4001 




SOL 

$R4 f 1 


WOS —> bYTES 

003 779 

1520 

CP 00 

1543 



STR 

$R4,<SRNGVL 


SAVE RANGE FQk S+k 

003760 

1 5c2 

0360 

0394 



LNJ 

$B5 * <WI OLD 



003761 

15c4 

P 800 

029D 



LOR 

$R7 * <OAT 5EK 



003762 

1526 

D380 

0 3 A3 



LNj 

$b5i <WRTASK 



003763 

152o 

0360 

0585 



Lnj 

$65i<CKSTUS 


CK TlMtOUT ♦ jTATUs 

003764 

1 5 2 A 

D360 

0705 



LNJ 

$b5 «<CKOFRG 


CK OFFSET RANgE 

003785 

152C 

0360 

06DF 



LNJ 

$B5 »<CKRNGE 


CK RANGE 

003786 

152c. 

9B60 

1791 



LAB 

$bl,<WRTBFR 



003 787 

1530 

9F60 

0396 



ST b 

$bi* <wolob*i 


REStT WRITE AjORESs 

003786 

1532 

D3C0 

F 20 



limj 

$B5«ERRT ST 



003789 





ft- 



-* 


003790 





ft 

SEARCH 

ANO READ W/ 

* 


003791 





* 

MAXIMUM 

RANGE 

* 


00379c 





*- 



-*v- 


003793 

1534 

D3C0 

P 2 F 2 



LNJ 

$B5 * SETEST 


SET TtbT AODRlSS 

003794 

1536 

6A60 

0393 



INC 

<GOPILL 

INHIbIT KO-bUPR 33 -MEMOrY-FILL 

003 795 

1536 

L60C 

0812 



LOR 

$R 6 * <MST AOD 


SAVE TtST ADDRESS 

003796 

153A 

0380 

04A2 



LNJ 

$65 * <FCWD 


FORM CNFG WDS 

003797 

153C 

0360 

04CA 



LNJ 

$B5*<WRTCWD 


WRT CNFG WOS 

003798 

153b 

9BC0 

BACi 



LAb 

$bl»cERU 



003799 

1 540 

9F80 

0364 



STd 

$Bl*<RlGLDb«-l 


SET RD-ADD s 4 ERO 

003600 

154c 

C670 

3FPP 



LOR 

$R4*-Z * 3FFF• 


RANGE (SAME Ao S*W) 

- 003601 


1543 



SRNGVL BOO 

$-1 



003602 

1544 

0360 

037b 



LNJ 

$B5 * <RI OLD 



003603 

1546 

P 800 

0290 



LOR 

$R7 *<DATSEK 



003604 

1546 

0360 

03 A3 



LNJ 

$B5 * < WRT ASX 



003o06 

1 54A 

A800 

0256 



LOR 

$R2»<RTASK 



r 003606 

1540 

A644 

0010 



XOR 

$R2*$B4. PURTCH 



f 003607 

154t 

6057 



$A 

10 

=$R7*=$R2 


RO-TASK 

i 

154P 

0052 








L 003606 

1550 

07 Ft 




61 OF 

>-$A 


HANG TIL XFER DONE 

003609 

1551 

0360 

0565 



LNJ 

$B5♦<CKSTUS 


CK TIMEOUT ♦ JTATUS 

003610 

1556 

0360 

0705 



LNJ 

$B5* <CKOFRG 


CK OFFSET RANgE 

003611 

1555 

0360 

06GF 



LNJ 

$B5»<CKRNGE 


CK RANGE 

00361c 

1557 

tPOO 

0812 



STR 

$R 6 »<MSTAOO 


RESTORE TEST mOORE'SS 

003613 

1559 

0380 

07F4 



LNJ 

$65* <ERRTST 



003614 





it 





003615 

155d 

6740 

BB37 



CL 

GUF1LL 



003616 

1550 

9B60 

1791 



LAB 

$B 1 *<WRTbFR 



003617 

155F 

9F60 

0396 



STB 

$Bl»<wULOb+l 


REStT WRITE AuORESs 

0036 1 o 

1561 

6700 

0760 



Cl 

<CWAP 


CLEAR CNFG-WO-A 

003619 

1563 

6700 

0761 



CL 

<CWdP 


clear cnpg-wd-b 

003620 

1565 

9B60 

0000 

X 


LAb 

$BU<RDBUPR 



003621 

1567 

9F60 

0384 



STB 

$B1*<RI0LDB+1 


RESTORt 10L0 mDOREss 

003b2^ 





ft 

NOTE; RLStT REA0-6UFR 33- 

FILL IF UNSUCtSSFUL kEAO 

003623 





ft- 



-ft 


003624 





* 

600TSTRAP-T tST * 



003625 





* 

SIMULATE 

FIRMWAkE BOOTSTRAP* 


G03b26 





ft- 



-*V- 


003627 

156* 

03C0 

F2bl) 



LNJ 

$B5 *SETLST 


SET TEST ADDRESS 

003626 

1 56d 

4C01 




LUV 

$R4,=1 



003629 

1560 

CFOO 

0761 



STR 

$R4 *<CWbP 


END SECTOR^l 

003b30 

1560 

0360 

03Bb 



LNJ 

$B5 * <INITZ 


INITIALIZE OlbC SUBSYSTEM 

003631 

1570 

C87G 

0100 



LOR 

J>R4 * = X 1 0100 * 


range s i-secior 

003632 

1*572 

0360 

0376 



LNJ 

$B5,<RT0LD 


LOAD ADDRESS - ♦RANGE" 

0U3833 

1574 

P800 

029b 



LOR 

$k/» <OAT A 



003634 

1576 

0380 

03 A3 



LNJ 

$B5♦<WRT ASK 


TASK= RD DATA 

003635 

15 76 

0380 

054b 



LNJ 

$b5 * <CKERR 


CK TIHtOUT,STMTUStEND-KNGE»CNFG-WDS 

0U3b36 

157A 

9B60 

0000 



LAb 

$bl*<ZERO 


SB COMPARE FlcLO LOCATION 

0 0 3 o 3 7 

1570 

0380 

0768 



LNJ 

$b5,<CMPARt 


OAT A= BOUT-REcORO? 

U03d36 

003o39 

1570 

0380 

07P 4 


ft 

LNJ 

$B5 *<LRRTST 


ANY ERRORS? 

003840 





ft 

Interrupt test — - 

- IF 

THE CPU IS A 6/34 Or /36 AT REV 2.1 OR 

0U3o41 





ft 



OLDER* THIS TEST MAY Fail WHEN THE CPU ANO 

0G3o4c 





ft 



THE 

DISC CONTROLLER ARf AT THE SAME INTERRUPT 

QU3843 





ft 



LEVEL. THE RESULT IS Thf CPU ORQPS TO LEVtL 63. 

003644 

1560 

03C0 

F 2 A 6 



LNJ 

$b5 * SETLST 



003645 

156C 

0380 

04 Ac 



LNJ 

$b5,<FCwD 



003o4o 

1564 

0380 

04CA 



LNJ 

$B5 * <WRTCWO 



003647 





ft 

THIS TtJT 

EHLCKj that interrupts 

ARE GENERATED ON The 

003648 





ft 

CORRECT 

level. EVERY LEVEL is 

CHECKED. 

003649 

1566 

AB60 

0000 

X 

A 

LAb 

$B2♦ <ZH lSA2 



003650 

1566 

BB60 

1650 



LAb 

$B3♦<ISaRO 


SAVE AREA FOR ALL LEVEtS 

003651 

1 58A 

bFFc 



B 

STB 

$B3*+$b2 


SET UP ALL LEVELS 

003b 5c 

156b 

A080 

1636 



CMb 

$b2»<H006F 


DONE YLT? 

003653 

15b0 

0270 




BL 

>6 


NO - KtEP GOING 

003654 

1560 

9B60 

1665 



LAb 

$B 1 * <DEVIH 


ADDRESS OF RUPT HANDLER 

003655 

1590 

9F80 

1653 



STB 

$bl»<ISARP 


POT INTO SAVE AREA 

003656 

1592 

CF60 

1656 



STB 

$B4 * <ISARX 


SAVE PORT 

r 003&57 

1594 

CP 60 

1642 



ST b 

$B4,<ISATX 



[ 003656 

1596 

6C3F 




LdV 

$R 69 - 6 3 


STARTING LtVtb FOR PROGRAM 

1 003o59 

159 7 

8700 

0000 

X 

C 

Cl 

<ZH1AFB 


REStT ALL ACTiVITY FLAGS 

003660 

1599 

6 700 

0001 

X 


CL 

<ZH1AF6*1 



003661 

159b 

6700 

0002 

X 


cl 

<ZH1AF 8 + 2 



003664 

1590 

8700 

0003 

X 


CL 

<ZHiAPb*3 
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003663 

1 59F 

9800 

1632 



LDR 

SRI* <L VOC 

QUICK LEVEL CnANGE 

003064 

15 A1 

9406 




OK 

$Rl*=$R6 

GET READY FOR LEVEL CHANGE 

003666 

15 A<1 

8651 




66 V 

= $R1 

MAKE THE CHANGE 

003666 

1 5 A3 

9570 

003F 



AND 

SR1*=Z*003F» 

LOOK AT LEVEL ONLY 

003067 

1 0A0 

8A01 




INC 

= 3>R| 

GO BACK TO OLD LEVEL 

003666 

15A0 

8810 

0000 

X 


LbF 

<ZHiA8b.SRl 

AND RESET ACTIVITY FLAG FOR THAT LVL 

003669 

15A0 

9856 




LDR 

S>R1* = $R6 

GET CURRENT L^VEL BACK 

003070 

15A9 

9270 

0038 



SUB 

$R 1 * = 63 

15 THl5 FIRST TIME THRU? 

003071 

10 Ab 

1966 




BNEZ 

5>R 1 * >D 

- BRANCH 

00307*1 

10AC 

9660 

163A 



6AB 

$B1* <1 SATD 


003673 

15Al 

9F80 

0038 

X 


5Tb 

*61»<ZH1$AZ+63*SAF 

SETUP SAVE ARcA AFjER LEV IN5TR 

0 0 3 o 7 4 

15bO 

0 F 8 7 




6 

>E 

SKIP THIS CODl NOW 

003076 

15 61 

9856 



D 

LUR 

*RI*=$R6 

RESTORE CURRENT LEVEL 

003676 

10b4 

8 AO 1 




Inc 

= $Rl 

LOOK A! OLD UV6L 

003077 

1563 

9660 

1650 



LAb 

$61 * <I SARD 


00367b 

1060 

9F90 

0000 

X 


5 Tb 

$B1*<ZHiSAZ*$Kl 


003679 

156 7 

5C3E 



E 

LDv 

$R5,=62 

INITIAL LEVEL FOR DISC 

003600 

1066 

6700 

1633 


F 

cc 

<DEVSEM 

RESET SEMAPHORE 

003681 

156A 

0400 

1634 



OR 

$R5 * <CPChAN 

stick in cp channel number 

003&82 

156C 

A800 

0275 



LOR 

$R2 * <WINUPT 

GET WRl-iNTUPi-CMD 

003083 

156L 

A644 

0010 



XOR 

$R2*$b4.PQRTCH 

ADD PORT CHANNEL 

003684 

15C0 

6055 



G 

10 

= $R5 *= $R2 

SET NEW DEVICc interrupt level 


10C1 

0052 







003680 

15C2 

07F E 




b|OF 

>G 

WAIT FUR I/O 

003o86 

15C3 

OF DO 

1630 



5]R 

$R5,<DLVL 

STORE IT AWAY 

003607 

15CS 

LFQQ 

163 7 



5TR 

$R6* <PLVL 

STORE PROGkAM LEVEL 

003686 

15C7 

EFOG 

1636 



STR 

$R6 * <CLVL 

********** 

003609 

15C9 

0670 

0000 



LDR 

$R4,=Q 

RANGEsO 

003890 

150b 

0380 

0394 



LNU 

$60,<MOLD 

IOLD 

G03o91 

1000 

A800 

0277 



LDR 

$R2 * <WT ASK 

GET TA5K-CMD 

003692 

1008 

A644 

0010 



XOR 

3>R2 >564 • PORTCR 

ADD PORT 

003893 

1501 

8000 

0296 


h 

lu 

<DATA*=$R2 

wrt-task 


1003 

0002 







003o94 

1004 

0780 




610F 

>H 


003690 

15D5 

F 8 7 0 

0100 



LOR 

$R7 * = X * 0100• 

SETUP FOR TIMt. DELAY 

003o96 





* 




003697 

1507 

7701 

FFFF 



61)60 

$R7,$ 

WAIT HERE FOR A WHILE FOR RUPT 

003696 

1009 

0801 

FFFF 



NuP 

5 

MAY CQME HERE AFTER RuPT 

003699 





* 




003900 

1506 

0670 

00 3 F 



AND 

$R5 *=Z * 003F • 

LOOK AT DEVlCb LEVEL ONLY 

003901 

100b 

9600 




LDR 

$Rl*=$R5 

PUT DEVICE LEVEL INTO RX 

003902 

1006 

1901 

0046 



66Z 

$R1 *M 

LEVEL ZERO CAnT RUpt 

003903 

1560 

9256 




5Ub 

$R1*=$R6 

SEE WHICH LEVlL WAs HIGHEST 

003904 

1561 

1809 




6G62 

$R1*>J 

DEVICE SHOULDN’T HAVE RUPTED - BRANCH 

003900 

1062 

6980 

1633 



CM2 

<DEV SEM 

DID A RUPT HAPPEN? 

003906 

1564 

0981 

0047 



BNE 

N 

YES - LVtRYTHiNGS OK ********** 

003907 





* 




003906 

1066 

9870 

2016 



LDR 

$R1* = Z * 2016• 

ERROR CODE 

003909 

1006 

0300 

8267 



LNJ 

$B5,ERROR 

SHOULD HAVE RjPTED BUT DID NOT 

003910 





* 




003911 

156A 

89b0 

1633 


J 

CMZ 

<DEvSEM 

HAS RUPT HAPPENED? 

003912 

1560 

0900 




66 

>K 

NO - ITS OK 

0U3913 





* 




003914 

1560 

9870 

2017 



LDR 

$Rl*=2*2017* 

ERROR CODE 

003910 

1568 

0300 

F260 



LNJ 

ib5 *ERRGR 

RUPT HARDENED WHEN IT SHOULDN'T HAVE 

003916 





* 




003917 

1081 

0901 

0038 


K 

662 

$R5*M 

SKIP THIS LEVbL ZERO CAN'T RUPT 

003V 16 

1083 

503F 




CMV 

$R5 * = 63 

IS DEVICE AT LEVEL 63? 

003919 

10F4 

0901 

0035 



66 

M 

YES - SKIP SInCE 63 CANT RUPT 

003920 

1086 

EFOG 

1636 



5TR 

$R6,<CLVL 

CURRENT PROGRAM LEVEL 

003921 

1088 

9870 

003F 



LDR 

*Ri*=63 

SET FUTURE LEvEL 

00392*: 

108A 

9F0U 

1637 



5TR 

$R1* <PLVL 

STORE IN PROGkAM LEVEL 

003923 

10FO 

9470 

8000 



OR 

$R1* = 2 •8000• 

action for lev ins T r 

003924 

10F6 

9660 

1603 



LAb 

$Bi* <K1 

CCHANuE ADDRESS IN ISA 

003926 

1600 

9F60 

1653 



5Tb 

ibl* <lS aRP 

STORE IN P COgNTER 

003926 

1602 

8601 




LEV 

= $R 1 

DROP TU 63 TO ENABLE PENDING RUPT 

003927 

1603 

OFO1 

FFFF 


K1 

NOP 

5 

RETURN TU HERt 

003926 

1600 

703F 




LDV 

$R7,=63 

SET UP FUR DELAY 

003929 

1606 

7701 

FFFF 



6DEC 

$R7*$ 

WAIT HtRt FOR WHILE 

003930 

1 600 

0800 

1635 



LDR 

$R5♦<DLVL 

RESTORE DEVICE LEVEL TO R5 

003931 

lbOrt 

8800 

0003 

X 


LdF 

<ZHIA86*3*=Z*0001* 

SHUT OFF LEVEL 63 BIT 


1600 

0001 







003932 

1600 

0002 




5T5 

= $R2 


003933 

I60t 

A07O 

003F 



AND 

$R2 * =Z * 003F * 


003934 

1610 

A905 




CMR 

$R2*=$R5 


003930 

1611 

0900 




66 

>K2 


003936 





* 




003937 

161c 

9670 

2018 



LDR 

$kl*=2*2018* 


003930 

1614 

0300 

F236 



LNJ 

$B5,ERROR 

NO RUPT WHEN lP LEv TO 63 TO ALLOW RUPT 

003939 





* 




003940 

1 6 1 0 

0900 

1636 


K2 

CNR 

$R5 * <CLVL 

ARE THt PROG aND Dev AT SAMt LVL? 

003941 

1610 

0906 




66 

>K 3 

YES - NQ NEED FOR LEV 

003942 

1 619 

" 0870 

0080 



LDR 

$R4 * =2 * 8080 *~ 


003943 

1616 

0400 

1636 



OR 

$R4 *<CLVL 


003944 

1610 

8604 




LEV 

= $K4 


003940 

1616 

9680 

1665 


K3 

L Mb 

$B1 * <DEVIH 

RESTORE POINTlR TO HANDLER 

003946 

1620 

9FC0 

0032 



5TB 

$61*1 5ARP 


00394/ 

1622 

6800 

1636 


L 

LDR 

$R6 * <CLVL 

RESTORE PROG LEVEL TO R6 

003940 

1624 

9856 




LDR 

$R1* = $R6 

PUT INTO R1 

003949 

1620 

9680 

163A 



LAb 

$B1*<15ATD 

ISA FOR PROGRAM 

003950 

1627 

9F90 

0000 

X 


5Tb 

$B1*<ZHISAZ.$R1 

RESTORt INTERRUPT VECTOR 

003951 

1629 

0F63 




6 

>N 

SKIP AROUND INITIALIZE 

003952 

162 A 

OF 00 

0366 


M 

N UP 

<|N1TZ 


003953 

1620 

5700 

1568 


N 

6D6C 

$R 5,<F 

CHANGE DtVICE LEVEL AND BRANCH 

003954 

lt>26 

6700 

1597 



6D6C 

$R6*<C 

CHANGE PKOGRAri LEVEL AND BRANCH 

003955 

1630 

0F80 

16B5 



B 

<NIC6A 


003906 





* 




003957 





* 




003950 

1632 

0080 



LVGC 

DC 

Z * 0080• 


003959 

1633 

0000 



DEVSEM 

DC 

= 0 


003960 

1634 

0000 



CPCHAN 

DC 

= 0 


003961 

1636 

003 F 



DLVL 

DC 

= 63 

DEVICE LEVEL 

003962 

1636 

0038 



CLVL 

DC 

= 63 

********** 

003963 

163 7 

0038 



PLVL 

DC 

= 63 

PROGRAM LEVEL 

003964 

1636 


003F 

X 

HOOBF 

DC 

<ZH15AZ+(63*$AF) 

ADDRESS UF LA 0 T RUpt VECTOR 

003960 





* 




003966 





* 




003967 





* 




003966 

1639 

0000 



ISAT 

KE5V 

$AF *0 

ISA FQK BACKGROUND PROGRAM 

003969 

163 A 

0000 



ISATD 

DC 

=X*0000* 


003970 

1636 

8 8 88 




DC 

Z * FFFF* 


003971 

1630 

0000 




DC 

2*0000* 


003972 

1630 

1660 




DC 

<1SaTIH 



O 

‘i/ 
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003973 


1630 


1SATP 

EUU 

$-1 


003974 

l63t 

4000 



oc 

X * 4u00 * 


003973 

1631- 

0000 



RLSV 

3*$AF ♦ 0 


003976 

1642 

0000 


ISATX 

ktbV 

4*$aF>9,0 


003977 




* 




003976 




* 




003979 

164F 

0000 


ISAK 

ktbV 

$AF * 0 

ISA FOR OEviCt LEVEL 

003980 

1650 

0000 


ISARD 

OG 

= X * 0000 * 


0U 3981 

1631 

FFFF 



OC 

21* FFFF* 


003982 

1652 

0000 



OC 

z»oooo» 


003983 

1653 

0000 


ISARP 

ktbV 

$AF*0 


003984 

lo54 

4000 



OC 

X»4O00 * 


003983 

1653 

0000 



kEbV 

3 * $ A F ♦ 0 


003986 

1656 

O000 


ISAKX 

kEbV 

4*$AF+9*0 


00398 7 




* 




003986 




* 




003989 

1663 

8A80 

1630 

DtVlH 

INC 

<IbATP 

RESET RETURN uOCATiON 

003990 

1667 

6 A60 

1630 


INC 

<IbATP 


003991 

1669 

6A80 

1633 


INC 

<OEVSEM 

SET SEMAPHORE 

00399c 

1 66b 

0800 

1635 


LOK 

$K3,<DLvL 

DEVICE LEVtL 10 R5 

003993 

1660 

t800 

1637 


LOk 

$R6»<PLVL 

PROGRAM LEVEL TO R6 

003994 

1 66 F 

0400 

U2A7 


Ok 

$R5 * <CHAi\EL 

STICK IN CHANNEL NUMBER 

003993 

1671 

0644 

0010 


XOk 

$R3,$B4.P0RTCN 

SET PORT 

003996 

16 73 

A800 

1650 


LOK 

$R2 » <IbAKO 

LOOK A1 KUPTIimG DEVICE 

003997 

16 73 

8832 



LdF 

=$R2f=2*0040' 

SHUT OFF I/O oIT 


16 76 

0040 






003998 

167 7 

A933 



CMk 

$R2i=$R5 

WAS IT THE OIoC? 

003999 

1876 

0903 



bL 

>DEVlHl 

YES - OK 

O04O0O 




* 




004001 

1679 

9870 

2019 


LOk 

$R1»=Z»2019» 

ERROR CODE 

004u02 

16 7b 

U3C0 

FI 04 


LNJ 

$b3,ERROR 

RUPTInG OEVICt. WAS NOT DISC 

004003 




Ik 




004o04 

16 70 

0600 

1635 

DtVlhl 

LOK 

$R5i<0LVL 

DEVICE LEVEL 10 R5 

0Q4U03 

1671- 

b955 



LbT 

= $R5 » = Z * 4000 1 

SET PRIVELEGE BIT 


1660 

4000 






004006 

1661 

8C52 



bTb 

= $R2 

STORE THE "S" REGISTER 

004007 

1662 

A935 



CMk 

$R2»=$R 3 

IS IT RIGHT? 

004006 

1663 

0903 



BE 

>0EVIH2 

YES - GO ON 

004009 




* 




004010 

1664 

9870 

2020 


LOk 

$Rl♦=Z• 2020 1 

ERROR CODE 

004011 

1666 

D3C0 

F1C9 


LNJ 

$B5 * ERROR 

S-REG WRONG In SAVE AREA 

004012 




* 




004013 

1666 

D570 

00 3 F 

0EV1H2 

ANO 

S»R5 t = Z * 003F • 

LOOK AT DEVICE LEVEL 

004014 

16 8 A 

8752 



Cl 

= Sk2 

RESET INDEX 

004013 

166b 

82 AO 

0000 

X DEV1H3 

Lb 

<ZHiAFB.iR2 

LOOK AT NEXT ELAG 

004016 

1680 

A955 



CMk 

bR2*=$R3 

IS THIS FLAG (HE DEVICE LEVEL? 

004017 

1686 

0909 



bt 

>0EvIH3 

YES - BRANCH 

004018 

168F 

A956 



CMk 

$R2 * = $R6 

IS THIS THt PkQGRAm LEVtL FLAG 

004U19 

1690 

0907 



bE 

> 0 E V I H 5 

YES - BRANCH 

004020 

1691 

0502 



bBT 

>OEV1H4 

IF FLAG IS ON - BRANCH (bHOULDN'T BE) 

004021 

1692 

0F8F 



B 

>OEvIH 7 

OK FLAG IS OFF 

004022 




ik 




004023 

1693 

9870 

2021 

DEVIH4 

LOR 

$Rl* = Z * 2021 • 

ERROR CODE 

004024 

1693 

D3C0 

F1BA 


LNJ 

$63,ERROR 

ACTIVITY FLAG IS On WHEN IT SHOULDN'T BE 

004023 




* 




004026 

1697 

0566 


DEVIH5 

BbF 

> 0 E V 1 H 6 

FLAG lb OFF (SHOULDN'T BE) 

004027 

1696 

A9 56 



CMK 

$R2,=$R6 

IS THIb THE PkOGRAm LEVEL? 

0U4U26 

1699 

0908 



BE 

>OEvIH7 

YES - BRANCH 

004029 

16 9A 

8820 

0000 

X 

LbF 

<ZHiAF B# $R2 

NO - RtStT DEvICE LEVEL FLAG 

00403U 

l69u 

0F83 



B 

>DEV1H7 

CONTINUE 

004031 




* 




004032 

1 6 9b 

9870 

2022 

0BVIH6 

LOR 

$R 1 * =Z * 2022 1 

ERROR CODE 

004033 

169F 

03C0 

F1B0 


LNJ 

$B5 * ERROR 

FLAG IS OFF - SHOULD BE ON 

004034 




* 




004U33 

loAl 

A970 

003 F 

DEVIH7 

CMk 

$R2 , = 63 

IS THAT ALL TriE FLAGS? 

004U36 

16 A3 

0282 



bge 

>DEVIH8 

YES - BRANCH 

004037 

1 6A4 

27E7 



BINC 

$R2,>DEVIH3 

NO BUMP AND BkANCH 

004036 

16A5 

C870 

8000 

0BVIH8 

LOk 

$R4,=Z f 8000» 

GET READY FUR LEV ********** 

004039 

16 A 7 

C400 

1636 


OK 

$R4,<CLVL 

********* 

004040 

1 6 A9 

0900 

1636 


CMk 

*R3,<CLVL 

ARE LEVELS EQUAL? 

004041 

16 Ab 

0901 

F F 5 7 


BE 

K1 

YES - OONT Ltv 

004042 

l6Ab 

8E54 



lev 

= $R4 

GO BACK TO PRuGRAM 

004043 

16A6 

OF 81 

FFB6 


b 

OEViH 

BRANCH TO STAkT OF HANDLER 

004044 




* 




004043 




* 




004046 




* 




004047 




Ik 




004046 

I6b0 

9870 

2023 

15ATIH 

LOR 

$R1,=Z'2Q23' 

********** 

004049 

16b2 

03C0 

F19D 


LNJ 

$B5,ERROR 


004030 

16b4 

OFFC 



b 

>1 SAT1H 

********** 

004O51 


16b5 


NICEA 

EUU 

$ 


004052 

16B5 

0380 

03bB 


LNJ 

$B5,<INIU 

INITIALIZE 

004053 

16B7 

' 0380 

08^3 


LNJ ’ 

Sb5i<HOUSKP 

HOUSEKEEPING - - - ■ 

004054 

I6b9 

9B80 

02BF 


LAB 

$B1 * <MSEOPb 


004053 

I6bb 

0380 

043B 


LNJ 

$B5 *<ZVTC 

PRINT "END OF PASS.. 

004U56 




* 




004057 

16bD 

OFBO 

01F 7 


B 

<DONE 

END OF TtST 

004056 




* CLtAk MOOt OUT 


004059 




* GO 00 NEXT TASK 


004060 




* 




004061 


16BF 


MODEF 

EUU 

$ 


004062 

l6bF 

03C0 

F 167 


LNJ 

$B5 , bETEST 


004063 

1 601 

OFBO 

012E 


b 

<NEXT 


V V ' V O' T 

004063 




* 

OATA 

DISCRIMINATOR ADJUSTMENT AID 

004066 




* 




004067 

16C3 

9870 

2C50 

MOOEG 

LOk 

$R I , = * * P * 

FIX UP A MESSaGE/FlAG WORD 

004066 

1603 

9F40 

009C 


bTR 

$kl,MHMSGB 


004069 

16C7 

1C03 



LDV 

$R1 * »3 

AND THt INPUT RANGE 

004070 

16C8 

0F81 

0059 


b 

MHB 

GO TO SHARE CoDE In MODE H 

004071 




* 




004072 




* 

after 

THE COMMON CUDE, RETURN HERE TO MAYoE WRITE. BUT READ ANYWAY 

004073 




* 




004074 

16CA 

9BC0 

0040 

MGRET 

LAB 

$B1,MGMSGC 

ASK IF TRACK TO BE WRITTEN 

004075 

16CC 

03C0 

ED6E 


LNJ 

$B5 ,ZVTC 


004U76 

16CE 

03C0 

ED04 


LNJ 

$63 , YORN 

ACCEPT ON CHAKACTERR 

004077 

1600 

09A6 



BnE 

>MGREAC 

BRANCH IF NOT WRITe 

004076 




* 




004079 





CALL 

ZV$T »ZV$UC*MG^SGD 

ASK FOR DATA PATTERN 


1601 

FBCO 

0003 






1603 

0380 

0000 

X 





1603 

OF 80 







1606 

171A 
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0Q408U 


004081 
004062 
00408J 
004084 
004081? 
Q04O86 
004087 
004088 
004089 
004090 
004091 
00409* 
004098 
004094 
004098 
004096 
004097 
004096 
004099 
004100 
004101 
00410*1 
004103 
004104 
004108 
004106 
004107 
004106 
004109 
004110 
004111 
004112 
004113 
004114 

004118 
00411b 
00411 I 
004116 
004119 
004120 
004121 
004122 
004123 
004124 
004128 
004126 
004127 
004126 
004129 
004130 
004131 
00413* 
004133 






CALL 

ZVSIH^MGDATA 

16D7 

FBCO 

0003 




16D9 

D360 

0000 X 




16DB 

OF 60 





16DC 

1717 





16DD 

D3C0 

EE41 


LNJ 

$B5♦LDWBFR 

16DF 

4C30 



LDV 

$R4^48 

16E0 

D3C0 

ECB3 


LNJ 

SB5♦WIOLD 

16E2 

F 840 

Ebb8 


LDR 

$R7♦FMT12 

16E4 

D3C0 

ECBE 


LNJ 

$65♦WRTASK 

16E6 

D3C0 

ECE3 


LNJ 

SB5♦1NSTUS 

I6E6 

F 840 

0021 


LDR 

$R7 ♦MGDATA 

I6LA 

C670 

IbOO 


LDR 

$R4,=6912 

16LC 

D3C0 

ED6C 


LNJ 

Sb3♦WRTP IL 

I6LL 

03C0 

ECA8 


LNJ 

$B5fWiOLD 

16F0 

F 840 

EBAB 


LDR 

$R7,DATA12 

16F2 

D3C0 

ECBO 


LNJ 

Sb5,WRTASK 

I 6 F 4 

D3C0 

ELD8 


LNJ 

$B5♦1 NS IDS 

I 6 F 6 

D3C0 

ED3F 

MGREAC 

£ 

LNJ 

$B5 fZVCRLF 

l6Fd 

8744 

0003 

MGREAD 

CL 

SB4# SECTR 

16FA 

D3C0 

tDA7 

MGREAE 

LNJ 

Sb5♦F CWD 

16FC 

D3C0 

EDCD 


LNJ 

$B5♦WRTCWD 

16FL 

C870 

0100 


LDR 

$K4,=256 

1700 

D3C0 

EC7A 


LNJ 

$B5,KIQLD 

1702 

F 840 

EB99 


LDR 

$R7,DATA12 

1704 

D3C0 

EC9E 


LNJ 

$B5♦WRTASK 

1706 

D380 

0888 


LNJ 

SB5♦<CKSTUS 




* 


THEN CHECK 

1706 

4C81 



LDV 

$R4f=-127 

1709 

CA70 

0001 

MG A 

ADD 

$R4»=1 

1706 

4AFE 



BlEZ 

$R4♦>MGA 

170C 

6AC4 

0003 


Inc 

$B4# SECTR 

1701 

8AC4 

000 3 


Inc 

$B4.SECTR 

1710 

C844 

0003 


LDR 

$R4♦$64# SECTR 

1712 

4 DOC 



CMV 

$R4♦=12 

1713 

0267 



bL 

>MGKEAE 

1714 

D3C0 

F14 1 


LNJ 

$65♦SENSE 

1716 

0FE2 



B 

>MGKEAD 

17 17 

AAAA 


MGDATA 

DC 

Z'AaAA* 

1716 

8752 

5424 

MGMSGC 

TEXT 

*WR1$• 

17 1A 

4441 

3441 2400 

MGMSGD 

TEXT 

• DAT AS* 


ACCEPT ONE WOrtD 


LOAD WHITE BUFFER FOR FORMAT 
RANGE 15 12*4 

OUTPUT A WRITt. RANGE/ ADDRESS 

GET TAbK WORD TO FORMAT 12 SECTORS 

OUTPUT IT TO jTAKT BUSY 

WAIT UNTIL NO I BUSy 

TAKE THE DATA WORD 

FOR A WHOLE TRACK (BYTEb) 

AND FILL THE WRITE BUFFER 
OUTPUT A WRIT*. RANGE/ADDKES5 
TASK WORD TO wRITE 
OUTPUT IT TO *jTART BUSY 

WAIT FUR NOT oUSY 

ACKNOWLEDGE ThE OPERATOR KEYSTROKE 
START WITH SECTOR ZERO 
^P^LTHE^^ONFiGURATIQN WORDS, 


AND OUTPUT THlM TO THE CONTROLLER 
RANGE IN BYTE,? 

OUTPUT THE REmD RANGE/ADDRESS 
TASK WORD TO k£AD DATA FROM 12 
OUTPUT TASK To START BUSY 

WAIT UNTIL CONTROLLER NO I BUSY 
^TUS-ERROR* 

THEN WAIT FOR A FEw 
HUNDRED MICROSECONDS 


BUMP THE SECTOR TWICE 

SO WE READ SECTORS o* 2, 4, 6, 8» 10 

AND SKIP OVER 1, 3» 5* 7, 9, 11 

OK* STILL IN THE One REV LOOP 

CHECK IF OPERATOR HIT THE BREAK KEY 
DO ANOTHER REv OF THE DISC 

OPERATOR CAN OVERlDE THE DATA WORD 


X 576 FORMAT 


HEAD - ALIGNMENT - AID 
THIS SUbROOTINE IS DESIGNED TO ALLOW THE USER TO Set . 
A SELECTED CYLINDER AND TRACK AND TO ISSUt A DIAGNOSTIC 


ERRORS ARE IGNORED# 
TO.SELECT A DIFFERENT 


004134 

1710 

6740 

0044 



MODEH 

CL 

MHMSGB 

004135 

17 1F 

6744 

0003 




Cl 

$64# SECTR 

004136 

1721 

i CO 2 





LDV 

$R1*-2 

004137 






* 



00413o 

1 722 

9F40 

003A 



MHb 

STR 

SRI♦MHRNG 

004139 







CALL 

2VSl•ZVSQC♦MHMSGA 


1724 

FBCO 

0003 







1 726 

D360 

UOOO 


X 





1726 

OF 80 








1729 

1 751 







004140 

1 7 2A 

0BC4 

0001 




LAB 

Sb5♦SB4.CYLN0 

004141 

17 2C 

DFCO 

0006 




STB 

SB5♦MHA 

004142 







CALL 

ZV$1H,Z£RU^MHRNG 


172E 

FBCO 

0003 







1 730 

0380 

0000 


X 





1732 

OF 80 








1 733 

0000 








1734 

17 5D 







004143 


1733 




MHA 

LQU 

$-2*$AF 

0U4144 






* 



004143 

1733 

8 751 





CL 

= SRi 

00414o 

1736 

9t44 

0003 




SwR 

SRI♦$64.StCTR 

004147 

173b 

9 F 44 

0004 




SIR 

$Rl,$b4#PLATER 

004146 

1 7 3 A 

D3C0 

ED67 




LNJ 

$65♦FCWD 

004149 

17 3 C 

D3C0 

ET78D* 




LNJ 

sBSyWRTLwD 

00415U 

173L 

03C0 

E6FF 




LNJ 

$B5♦F StK 

004151 

1740 

89C0 

0021 




Cm* 

MHMSGb 

004152 

1742 

0981 

P F 8 7 




BNE 

MGRtT 

004153 






* 



0U4154 

1 74*+ 

4C06 




MHREAD 

Lov 

$R4 ♦ s: 6 

004155 

1748 

D3C0 

EC35 




LNJ 

$B5♦RI OLD 

004156 

174 7 

F870 

1E00 




Luk 

$R7♦ = Z • 1 LOO * 

004157 

1749 

D3C0 

EC64 




LNJ 

$B5 ♦ wTOFRG 

00415b 

174b 

A840 

Lb2B 




LDR 

$R2♦WT ASK 

004159 

1 740 

A644 

0010 




Xuk 

$R2♦$B4 # PORTCrt 

004160 

174P 

8070 

8600 




ID 

=Z»6b00*,=SR2 


1731 

0052 







004161 






* 



004162 






MHC 

call 

ZVSdRK 


1752 

FBFO 

0001 







1754 

D380 

0000 


X 




004163 

1756 

89C0 

0000 


p 


CMZ 

ZV$oKF 

004164 

1756 

097A 





BE 

>MHL 

004165 






* 



004166 

1759 

03CO 

EC61 




LNJ 

SB5♦INITZ 

004167 

1 7 5o 

0F81 

E9BB 




6 

RESTKT 

00416b 






* 



004169 

17 5D 

0002 




MHRNG 

DC 

2 

004170 

1 75t 

4359 

4C2C 

4845 


MHMSGA 

TLXT 

•CYL,HEAD* 


1 761 

4144 







004171 

176* 

2 A2A 

4C41 

5424 


MHMSGB 

TEXT 

•**lAT $• 

00417* 






* -- 




THE DRIVE ON 

. . _ __ __C-RLAD HANG# 

PROGRAM HANQS UNUL THE ”6REak-KEY« IS HIT# 
CYHNDER/TRACK♦ Rt~tNTER THE «H" MODE AT THE 

SHORTEN MESSAvjE/CLEAR FLAG 
StT FOR PLATTtR ZERO 

fix up the input Range 

EITHER 2 OR 3 WORDS 
ASK FQR CYLiHt.AD( ♦PLATTER) 


PREPARE 10 ACCEPT 2(3) WORDS 
FROM THE CONSOLE INTO THE 
AREA Sb5 POJNJS TO 


ALWAYS START mT SECTOR ZtRO 
GET PLATTER (uR ZERO) 

AND PLACE IN CORRECT SPOT 
FORM CONFIGURATION WORDS 
OUTPUT THEM To CONTROLLER 
SEEK THE REQUESTED CYLINDER 
SEE IF MODE M H” OR •• G H 
BRANCH ON MODfc "G H 

RANGE IN BYTE,? (NEVER SATISFIED) 
OUTPUT RANGE/mDDREsS FOR READ 
OFFSET RANGE yALUE 
OUTPUT OFFSET RANGE 
GET CHAN 

PLUS PORT FOR THE OUPUT TASK 
TASK IS SPECIAL DIag FOkMAT READ 


CONTROLLER REGAINS BUSY UNTIL 

AN INI T # TO QUIT♦ HIT THE 
CONSOLt BREAK 

END BUbYf RECaL 


RANGE OF 2 (3) INPUT WORDS 
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004173 
004174 
00417 5) 
004176 
004177 


0U4176 


004179 

004180 

004181 

004182 

004183 

004184 

004183 

004186 

004187 

004188 

004189 

004190 

004191 

004194 

004193 

004194 

004198 

004196 

004197 

004198 

004199 

004200 

004201 

004202 


004203 


004204 


004208 
004206 
00420 ! 
00420b 
004209 
004210 
004211 
004212 
004213 
004214 
004213 


004216 
00421 7 
004220 
004221 

004222 

004223 


004224 


004225 


004226 


004227 

004228 

004229 

004230 

004231 

004232 

004233 

004234 

004433 

004236 

004237 

004238 

004239 

004240 

004241 

004242 

004243 

004244 

004243 

004246 

004247 

004248 





* 

Servo/velocity adjustment 

AID 

1765 

03C0 

FOCI 

MQDEV 

LNJ 

Sb5 * SE TEST 

CLEAN UP* REMEMBER ADDRESS 

1767 

D3C0 

EC53 


LNJ 

*B5,INITZ 

RECAL, INIT THE CONTROLLER 


FbCO 



call 

ZV$i*ZVSQC*MVMSGA 

AS< FOR TWO CYLINDERS 

1769 

0003 




1 76d 

D380 

0000 X 





1 76D 

OF 80 






176L 

178C 



CALL 

£VSIH*MvCYLS,MVTWO 

ACCEPT TWO HEa WORDS 

176F 

FbCO 

0003 




1/71 

0380 

0000 X 





1773 

OF 80 






1774 

17 8A 






17 75 

17 89 






17 76 

9840 

0014 


LOR 

SRI*MVCYLS+I 

MAKE THE SITUATION 

1778 

9F44 

0001 


STR 

i>Rl *$B4.CYLNU 

APPEAR AS IF A SEEK 

1 77 A 

9840 

OOOF 


LOR 

SRI*MVCYLS 

HAD JUST BEEN COMPLETED 

1 7 7 C 

L»3C0 

EC4D 

MVA 

LNJ 

SB5*INSTUS 

WAIT FOR THE lQNTKqlLER NQT BUSY 

177L 

9E44 

0001 


5WR 

SR1*SB4.CYLN0 

PUT IN THE OTHER CYLINDER NUMBER 

1780 

D3C0 

E02 1 


LNJ 

SB5 * FCwD 

FORM CONFIGURATION WORDS 

1782 

0 3C0 

E047 


LNJ 

3B5 *wRTCWO 

OUTPUT THEM 

1784 

03C0 

EBB9 


LIMJ 

SB5 *FSEK 

START A SEEK 

1786 

03CQ 

F005 


LNJ 

$B5*SENSE 

CHECK FOR A CuNSOLE BREAK 

17 88 

OF F 4 



b 

>MVA 

KEEP vjOING 

1789 

0002 


MV TWO 

DC 

2 

RANGE FOR TWO WORD INPUT 

178A 

0000 


MVCYLS 

RESv 

2*0 

•CYE.CYLS* 

inner and OUTlR cylinders 

178C 

4359 

4C2C 4359 

MVMSGA 

TEXT 

17 8 F 

4X24 







1790 

1791 
1793 
1793 
1796 

179 7 
1799 
179b 
179C 

1790 
1 7 9 F 
1 7 A1 
17 M2 
1 7A3 
17 A3 
17 A 7 
1 7 A 9 
1 7 Ab 
17A0 
17 A F 
1 7bl 
17b3 
17b3 
1767 
17 BA 


0000 

1791 

FBCO 
0380 
OF 80 
17b7 

FBCO 

0380 

OFbO 

17C9 

FbCO 
0380 
OF 80 
170F 
DB80 
OFbO 
F 8 0 0 
FF 00 
0380 
9870 
9900 
0300 
9F00 
OF 80 
4341 
4953 
3354 


17 BE 2043 


0003 

0000 


0003 

0000 


0003 

0000 


0868 
0000 
0100 
0104 
02 1A 
3000 
0000 
0117 
02C3 
0117 

5254 2044 
4320 5445 


17C1 
17C4 
1 7 C 5 
1 7 Cb 
17C9 
1 7 CC 
17CF 

17D4 

170/ 

1/OM 

17 D F 
17E2 
17E5 

1 7Eo 
1 7EE 
17F1 


2335 


2333 

2336 

2338 

2339 
233A 

2343 

2344 
23C4 
23C5 
23C6 
23CF 


230b 

2309 


2037 
3737 
2052 
3724 
7361 
6978 
6973 
7461 
606F 
7 7 6 F 
6172 
OOOA 
7 6 6“F 
3020 

2030 
6172 
2022 
3020 

2031 
6978 
0000 


4455 

2032 

4556 

7665 
6564 
6320 
OUO A 
7 5 6 E 
7266 
7428 
0000 
6C20 
706C 
2030 
7420 
2020 
2022 
2030 
6564 


5331 

3820 

2030 

2066 

2064 

6461 

7420 

2063 

7329 

3020 

6174 

2063 

OOOA 

3120 

2020 

2066 

OOOA 


OUTPUT - INPUT BUFFERS * 

———-# 

1*0 

ZVSkD,FORMAT 


RESV 

WRTbFR tUU 
CALL 


CALL 2V$ I.ZV$TC*FORMAV 


TELL U6EK TO ^AVE FIXED DISC DATA, ETC. 


CALL 2V$1.2V$TC*FURMAU OISPLAY SECQNu HALF OF MtSSAGE 


LAb 

srb 

LOR 

SIR 

LNJ 

LOR 

CMR 

bG 

STR 

b 

FORMAT TLXT 


IFEV 
TEXT 
SAF NULL 
1 EXT 

TEXT 

FQRMAV TEXT 


text 

FORMAU' TEXT 

TEXT 


SB5 * <NODCU 
a»b5»<ZHNRES 
$R7 » < ST ART 
$R7 * <FIKSTM 
$B5 * <MOOPCU 
SR 1 * =Z * 3000 * 
SK1*<ZVSHR 
<RESTRT 
SRI *<MEMSZE 
<RESTKT 

• CART OiSC TEST * 


*AF»LAF 
» CUUS1* 


SET UP TRAP FuR 
UNAVAILAbLE RESOURCES 
PISABLE BRANCh TO WRTbFR 

after first program load 

GET CHANNEL ♦ MODIFY INSTRUCTIONS 
MEMORY-SIZE 


OKG 


* 7-28-77• 

» REV-07S* 

•SAvt FIXED DISC DATA•*Z*OOOA• 

•MOUNT WORK CART(S)•,Z»OOOAOOOO» 

•VOL 0 = PLAT 0 = CART •*Z»0[70A* 

• " 1 = « l ss FIXED’*Z»0Q0A000u' 

aKTdFR*3460-163-317 


2335 

DRIN24 EuU 

S 

FAAA 

DC 

sZ»FAAA» 

0000 

RESV 

2*0 

0000 

RESV 

1*0 

FFFF 

DC 

-Z’FFFF* 

0000 

RESV 

9*0 

FDDO 

DC 

=Z»FDDD» 

0000 

RESV 

128,0 

0000 

RESV 

1*0 

FFFF 

DC 

-Z•FFFF* 

0000 

RESV 

9*0 

0000 

RESV 

9*0 


256-bYTt DIAGNOSTIC RECORD FOR COMPARES 

163 DECIMAL WURDS 


2308 

FAAA 

0000 


* 

* 

0R1N12 EuU 
DC 

RESV 


576-BYTE DIAGNOSTIC RECORD FIELD 


= Z * FAAA• 
2*0 


317 DECIMAL WoRDS 
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004449 

4 30b 

0000 

KtSV 

1.0 


ID tDC 

004450 

4300 

FFFF 

dc 

= Z 1 F F FF * 



0044 5 i 

43bO 

0000 

RESV 

9*0 



004^54 

4306 

FDOD 

DC 

= Z • F OOD * 



004453 

430/ 

0000 

KtSV 

488*0 



0042.54 

4 507 

0000 

KtSV 

1*0 



004455 

4506 

FFFF 

DC 

=Z'FFFF» 



004456 

4509“ 

0000 

KtSV 

14*0 



004457 



* 




00445b 



* 456-1 

bYTt DIAGNOSTIC 

RtCORD 

FIELD 

004459 



* 




004460 


4515 

MA5T24 bob 

S 


154 DECIMAL WORDS 

004461 

4515 

F AAA 

OC 

= Z * F AAA• 


SW1 

004464 

4516 

0000 

KtSV 

2*0 


SECTOR-i•D* 

004463 

4518 

0000 

KtSV 

1*0 


ID-EDC 

004464 

4519 

FFFF 

00 

= Z * FFFF• 


POST-AMBLE 

004465 

45 1A 

0000 

KtSV 

9*0 


GAP 2 

004466 

4543 

FDDD 

00 

=z * food* 


SW2 

004467 

4544 

0000 

ktsv 

148*0 



004466 

4 5 A4 

0000 

KtSV 

1*0 


DATA EDC 

004469 

45A5 

FFFF 

00 

=Z»FFFF» 



004470 

45A6 

0000 

KtSV 

9*0 


GAP3 

00447i 

4 5 AF 

0000 

KtSV 

9*0 



004474 



* 




004473 



* 576-1 

bYTt DIAGNOSTIC 

RtCOKO 

FIELD 

004474 



* 




004475 


25bb 

MAST12 LuU 

S 


317 DECIMAL WgRDS 

004476 

4 5b6 

F AAA 

00 

~Z * F AAA * 



004477 

45b9 

OOOU 

KtSV 

2*0 



004476 

45Bb 

0000 

KtSV 

1*0 


ID tDC 

004479 

4 5bO 

FFFF 

00 

=Z*FFFF« 



00448O 

4 500 

0000 

KtSV 

9*0 



004481 

4506 

FOOD 

00 

=Z»FDDD» 



004484 

4 50 7 

0000 

KtSV 

488*0 



004483 

4607 

0000 

KtSV 

1*0 


EDC 

004484 

4606 

FFFF 

00 

= Z * F F F F » 



004485 

4609 

0000 

KtSV 

14,0 



004486 

4oF 5 

OF 01 0000 

NuP 

$+1 



00448 7 


0000 

X KDBUFK tOU 

4VSKDT 


READ-bUFFEK SJAKTS ABOVE LibRARY 

004488 

46F 7 

0100 

END 

CDUS1 * START 



OOOU LKR cuuut 






TITLE Cl>US 1 ,•ktv 7* 





491 *A 


493b 573b 

5846 631b 

o35B 7066 

965b 

1017B 1041b 1033B 



1083b 1107b 

11406 1400b 

1446b 14856 

15086 

15146 1550b 1558B 



1560b 1564b 

15646 1566b 

1566b 1694b 

17166 

18026 1860b 2135 B 



43416 44206 

3142B 38086 





575 

SA 











588 

sA 











646 

SA 











703 

SA 











967 

SA 











1009 

SA 











1035 

6 A 











1081 

sA 











1097 

SA 











1118 

sA 











1403 

SA 











1448 

*A 











1499 

1515 

1549 

1571 

1696 

1718 

18U 1 
1857 
4134 
4344 
4448 
3130 
3807 

SA 

SA 

4> A 

SA 

SA 

SA 

SA 

SA 

SA 

*A 

SA 

sA 

sA 

SAF 

499C 

500C 

501C 

504C 

911 

1039 

1149 

1238 

1274 

1306 


1387 

1487 

1488 

1534 

1536 

1764 

3530 

3776 

3873C 

3964 



3968 

3975 

3 9 76 

3979 

3983 

3985 

3986 

4143 

4216 

4418 

510 

SB 

514b 

028B 

716b 

1101 b 

14 98B 

1301b 

1322b 

1416B 

14386 

1458B 



1746b 

2035b 

2094b 

4139b 

4143b 

4173b 




638 

713 

1104 

1304 

1345 

1440 

1442 

1460 

1748 

4033 

4094 

4144 

4176 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SB 

SBl 

544 

563 

588 

695 
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704C 

714 

714C 
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989B 


1015 
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24776 

24786 

2482B 


2487b 

2488B 
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25686 
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2756B 
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27806 
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2 7856 

27866 

2794b 

27966 

2797B 
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28046 
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2810b 

28156 

28166 

2b 17B 

2822b 

28246 

28256 

2829b 

283QB 
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2840B 

2842b 

28436 

2b44b 

28456 

28486 

2850B 

28536 

28546 


2855b 

2858B 

2859B 

2865b 
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28686 

28706 

28716 

28726 
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28836 

2884B 

2885b 

28866 
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2893b 

28966 
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28986 
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29106 

29126 

29136 

29146 
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2927B 


2928b 

2931b 
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29456 
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3002B 

3003b 
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30096 
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3024b 
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30276 

30296 
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30346 

3035B 


30376 

3039B 
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30436 

3047B 
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3055B 

30596 

30616 
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3070B 
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30856 
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31136 

3120B 


31236 

3125b 

31276 

31286 

3129b 
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31366 
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3139b 

3141B 


31446 

3146b 

31476 

31516 

31526 
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3 1566 

31586 

31596 
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3165b 
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3178B 

31796 
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31936 
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3202B 
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29CA 


ZVS—4 

29tA 


*ZV*HA 

29F6 


ZVSHZ 

2 AOO 


ZVSHA 

29 F 6 


ZVSHS 

29Fb 


*ZVS>MLw 

2A2F 

REV. 0 

ZVSMLW 

2A2F 


ZVibkiLk 

2A5E 


*ZV$HU 

2 A76 


ZVSHP 

2A76 


*ZV$RO 

2AA6 

REV. 6.0 

ZV*ROT 

2L76 

ZVSSVz 

2C2C 


ZVSokF 

2ALE 


ZVSHR 

2A05 


ZV$ — b 

2 AOS 
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ZVfckb 

2 AA8 

ZV$SVi 

2UC 

ZV$TT Y 

2Abb 

ZV&AF 

2 Ab9 

ZV^GTP 

2b*D 

ZV*5V3 

2C3C 

ZVfcTID 

ZAbA 

ZVSCFc 

2AC2 

ZV4>1 K 

ZAbE 

Z V3>kAk 

2AbF 

ZV$STi 

2AL3 

ZVSbGb 

ZAbC 

ZVfcGLb 

2 AC6 

ZV&kCb 

2 AC7 

ZVikCC 

2AC4 

ZV&kSk 

2ACb 

2V*STk 

2AC9 

ZV$bKb 

2ACD 

ZV*iZ 

2 AEO 

ZVSLk 

2AD2 

ZV$DA1 

2Ab7 

2 V $Hh 

2blC 

ZViHkG 

2ACF 

ZVSHkL 

2 ADO 

ZViLkU 

2AUl 

ZViLkL 

2AD2 

ZV&Hbb 

2AD3 

ZViLFl 

2 aC l 

ZV^kkib 

2Ab8 

ZVSMCP 

2AD4 

HI bAGD 

2AD3 

ZVfckAw 

2AC0 

ZVSC1L 

2AbD 

ZV*bl 

2btb 

ZV $T5T 

2CA8 

ZVSNDL 

2C89 

2V$k99 

2E26 

ZV$> 1 SA 

2ADb 

2V$uIH 

2 AD6 

2V $2kG 

2b5A 

ZVibbH 

2b5C 




